Décaler des plages de cellules

emma -  
zavenger Messages postés 817 Statut Membre -
Bonjour,

j'ai un tableau contenant 2 colonnes ayant le même type d'info (n° client) mais de taille différente
je veux comparer ces 2 colonnes : col A et col F si par ex A2-A2<>0 alors décaler les cellules F2 à L2 d'une ligne vers le bas et ainsi de suite pour toute les lignes remplies. Le but étant d'avoir le même nombre de lignes par n° client

voici la macro que j'ai écrite

Dim a As Long
For a = 2 To 14
If Cells(a, 6) - Cells(a, 1) <> 0 Then Range(Cells(a, 6), Cells(a, 12)).Select
Selection.Insert shift:=xlDown
Next a

Or dès que la condition est remplie elle décale tout comme si à partir de là la condition était tout le temps fausse

Merci de me dire ce qui ne va pas

3 réponses

Nabla's Messages postés 20731 Statut Contributeur 3 194
 
as tu essayé de rajouter des parentheses autour de ta condition ??
((Cells(a, 6) - Cells(a, 1) )<> 0)
0
zavenger Messages postés 817 Statut Membre 161
 
Ne serait-ce pas plutot qque chose comme cela

Dim a As Long
For a = 2 To 14
If Cells(a, 6) - Cells(a, 1) <> 0 Then
Range(Cells(a, 6), Cells(a, 12)).Select
Selection.Insert shift:=xlDown
end if
Next a
0
zavenger Messages postés 817 Statut Membre 161
 
en fait c'est normal car tu inseres une ligne et ensuite tu incrementes ta boucle de 1, donc tu tombes toujours sur la meme ligne

Ou alors je n'ai rien compris ;-[
0