Bonsoir, je ne comprends pas l’erreur que me donne ce code.
Je n’ai pas d’erreur, avec F8 tout se passe bien mais le résultat est faux…
une feuille « Formulaire » avec :
Code en B15
Nature En D15
Groupement en H15
Nom en J15
Adresse en L15
CP en N15
Ville en P15
Dpt en Q15
je veux coller ces valeurs dans une feuille « liste » avec :
Code en A
Nature En B
Groupement en C
Nom en D
Adresse en E
CP en F
Ville en G
Dpt en H
vba :
Dim MaPlage As Range, Cel As Range
Set MaPlage = Sheets(« FORMULAIRE »).Range(« D15,H15,J15,P15,n15 »)
For Each Cel In MaPlage 'pour toutes les cellules de la plage
If Cel.Value = « » Then 'si elle est vide alors
'message à l’utilisateur
MsgBox « Des informations sont manquantes et ensuite c’est le Bordel… »
'sortie de la procédure
Exit Sub
End If
Next
'copier "nature" de "form" dans derrière ligne colonne "b" du tableau "liste"
Dim derlig As Long
derlig = Sheets("Liste").Range("b" & Rows.Count).End(xlUp).Row + 1 'selectionner dernière ligne colonne B
With ActiveSheet
.Range(« D15 »).Copy Sheets(« liste »).Range(« b » & derlig) 'copier D15 dasn cette dernière ligne
End With
'Copier la ligne des informations de "form" dans la dernière ligne du tableau "liste"
Sheets("FORMULAIRE").Select
Range(« B15,D15,H15,J15,P15,N15,L15,Q15 »).Copy
Sheets(« liste »).Cells(Rows.Count, 1).End(xlUp)(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Worksheets(« FORMULAIRE »).Range(« D15,H15,J15,P15,n15,L15 »).ClearContents
Tous marche super bien, sauf que les 3 dernières Ranges ne vont pas au bon endroit. Toutes les infos vont bien dans ma dernière ligne de tableau mais :
B15 va bien dans la colonne A : OK
D15 en B : OK
H15 en C : OK
J15 en D : OK
P15 en G :???
N15 en F :???
L15 en E :???
Je sèche complètement…