Décaler des plages de cellules
emma
-
zavenger Messages postés 817 Statut Membre -
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
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
Configuration: Windows 2000 Internet Explorer 6.0
3 réponses
-
as tu essayé de rajouter des parentheses autour de ta condition ??
((Cells(a, 6) - Cells(a, 1) )<> 0) -
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 -
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 ;-[
