Probleme macro qui ne prend mal en compte la premiere ligne

[walyddu59]

Bonjour , le forum

J'ai un gros soucis sur une macro que j'ai réaliser , donc cette macro permet en fonction de la valeur dans la colonne AT de copier la ligne sur laquelle elle et positionner et de la coller en fonction du chiffre le de la colonne AT , cependant tout et nickel juste un problème au niveaux de la première ligne au lieu qu'elle copie les valeur elle me marque -1 pour les lignes suivantes tout et nickel je comprend pas pourquoi , j'ai bien tout verfier mais je trouve pas l'erreur , si quelqu’un pouvez m'aidez , merci .

Dim i As Long, Lenom As String
Dim deplace As String
Dim o, j As Integer ' Variables
Dim numligne As Integer ' variable numero ligne


o = 2 ' debut de la commande calcule a partir de la ligne 2

    While IsEmpty(Range("Feuil1!A" & o)) = False 'commande pour calculer
        numligne = Range("Feuil1!AT" & o).Value
        j = o
        
        For o = j + 1 To j + numligne - 1
        Rows(j & ":" & j).Select
        Application.CutCopyMode = False
        Selection.Copy
        Rows(o & ":" & o).Select
        Selection.Insert Shift:=xlDown
       
         
        Next o
    Wend

 

[eddy51]

Re : Probleme macro qui ne prend mal en compte la premiere ligne

Bonjour,

For o = j + 1 To j + numligne - 1
Moi sa me parait logique qu'il t'affiche -1

 

[walyddu59]

Re : Probleme macro qui ne prend mal en compte la premiere ligne

Salut,


Merci d'avoir repondu aussi vite , oui c'est vrai tu a raison , que me suggere tu a la place de ca, je sais pas quoi mettre , car si je supprime le -1 ma macro ne fonctionne plus .

 

[walyddu59]

Re : Probleme macro qui ne prend mal en compte la premiere ligne

Bonjour ,

je me permet de faire un up , car je trouve pas la solution , merci d'avance a tous ceux qui pourront m'aidez .

 

[fhoest]

Re : Probleme macro qui ne prend mal en compte la premiere ligne

Bonjour,
Quel est la valeur de numligne elle doit être >= 3.
pour que la boucle fonctionne correctement sans "step -1"
un fichier exemple serait plus explicite
A+

 

[walyddu59]

Re : Probleme macro qui ne prend mal en compte la premiere ligne

Salut , fhoest

Merci pour ton aide , mais je viens de trouver la solution je me suis tromper dans une formule, j'ai corriger et ça fonctionne , et vive le losc xD😛 !!

 

[walyddu59]

Re : Probleme macro qui ne prend mal en compte la premiere ligne

une dernière question je voudrez utilisez cette macro avec la feuille active du classeur et non juste la Feuil1 , j'ai remplacer Feuil1 par Activesheet mais ça fonctionne pas .

While IsEmpty(Range("Feuil1!A" & o)) = False 'commande pour calculer
numligne = Range("Feuil1!AT" & o).Value

 

[fhoest]

Re : Probleme macro qui ne prend mal en compte la premiere ligne

Re,
pour la feuille active:

ActiveSheet.Range ("A" & o)

A+

 

[walyddu59]

Re : Probleme macro qui ne prend mal en compte la premiere ligne

Salut ,

Je viens de tester le code mais ce ne fonctionne pas ce m'affiche erreur de compilation .

 

[fhoest]

Re : Probleme macro qui ne prend mal en compte la premiere ligne

J'ai modifié au #8 ,je n'avais pas tester
A+