A voir également:
- Programmation VBA Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
2 réponses
C'est assez diffcile de répondre comme cela. Il faut un peu plus d'information.
Comment effectue ta boucle pour parcourir ton tableau ?
Comment effectue ta boucle pour parcourir ton tableau ?
Si tu n'a pas de boucle essayes :
Sub test()
Nombre_de_Ligne = 100
For Rw = 1 To Nombre_de_Ligne
If Range("A" & Rw).Value Like "Total*" Then
Range("A" & Rw).Select
Selection.EntireRow.Insert
Rw = Rw + 1
End If
Next
End Sub
Sub test()
Nombre_de_Ligne = 100
For Rw = 1 To Nombre_de_Ligne
If Range("A" & Rw).Value Like "Total*" Then
Range("A" & Rw).Select
Selection.EntireRow.Insert
Rw = Rw + 1
End If
Next
End Sub
Merci pour ta réponse, cela m'aide bien.
Effectivement, je n'ai pas de boucle, car je n'arrive pas à la faire tourner correctement. En fait, je voudrais insérer des lignes avant chaque case comprenant le mot "Total" plus une ligne avant la case avec juste le mot "Total", la dernière ligne de ce tableau.
Et le but final c'est de copier les cellules contenues en colB, par bloc, et les mettre juste avant la case contenant le lot "Total", d'où l'insertion de la ligne.
Je ne sais pas si je me fais bien comprendre...
En tt cas, merci :)
Nta
Effectivement, je n'ai pas de boucle, car je n'arrive pas à la faire tourner correctement. En fait, je voudrais insérer des lignes avant chaque case comprenant le mot "Total" plus une ligne avant la case avec juste le mot "Total", la dernière ligne de ce tableau.
Et le but final c'est de copier les cellules contenues en colB, par bloc, et les mettre juste avant la case contenant le lot "Total", d'où l'insertion de la ligne.
Je ne sais pas si je me fais bien comprendre...
En tt cas, merci :)
Nta
