Vba Aide sur la methode : Do Until et Loop

[Soleil11]

Bonjour le forum,

J'ai besoin d'aide pour finaliser mon "loop" par ligne et colonnes. Le code ci-dessous marche bien si je veux lancer un "loop" par ligne de la cellule C2 à C19, le mot "text" a bien été ajouté (ci-dessous le code). J'aimerais qu'il ajoute le mot "texte dans la colonne "D" aussi.

Comment puis-je ajouter un 2ème "loop" par colonnes dans le même code ci-dessous avec les colonnes non vides de la ligne C1 à J1 qui sont les titres de mon tableau qui ferait référence de condition pour déterminer la fin du "loop".

Dois-je utiliser une autre méthode VBA ?

Merci de votre aide.

Sub loopRowCol()

Dim iRow As Integer
Dim iCol As Long
Dim iColx As Long

iRow = 2
iCol = 2


Do Until IsEmpty(Cells(iRow, iCol))

      Cells(iRow, 3).Value = "text"
    
    
    iRow = iRow + 1
 
Loop

End Sub

Soleil😕

 

[Pierrot93]

Re : Vba Aide sur la methode : Do Until et Loop

Bonjour,

pas tout compris peut être, mais perso utiliserais plutôt une boucle "for" :

Dim l As Long, c As Long
'boucle sur les lignes
For l = 2 To 19
    'boucle sur les colonnes
    For c = 3 To 4
        Cells(l, c).Value = "xxx"
    Next c
Next l

bon après midi
@+

 

[Soleil11]

Re : Vba Aide sur la methode : Do Until et Loop

Bonjour,

Ce serait cela mais je ne sais pas combien de lignes et de colonnes mon tableau peut contenir, c'est pour cela que j'ai utlisé la méthode "Do Until IsEmpty".

Peux-t-on faire la même chose avec For... Next ?

Merci pour votre aide encore..

Soleil11

 

[Soleil11]

Re : Vba Aide sur la methode : Do Until et Loop

Rebonjour,

Pour être plus claire, j'ai mis un fichier exemple de fichier le tableau que je veux, j'ai mis les 2 macros dans le module 1. Pour résumé j'aimarais que la partie jaune de mon tableau soit remplis aussi. J'ai juste un problème de boucle, comment puis-je mettre ensemble les deux macros pour remplir mon tableau en entier.

Merci encore pour votre aide.

Soleil11😕

 

[Pierrot93]

Re : Vba Aide sur la methode : Do Until et Loop

Re,

modifie comme suit alors :

Dim l As Long, c As Long
'boucle de la ligne 4 à la dernière ligne renseignée de la colonne A
For l = 4 To Range("A65536").End(xlUp).Row
    'boucle de la colonne F à la dernière colonne renseignée sur la ligne 1
    For c = 6 To Range("IV1").End(xlToLeft).Column
        Cells(l, c).Value = "xxx"
    Next c
Next l

 

[Soleil11]

Re : Vba Aide sur la methode : Do Until et Loop

Re,

modifie comme suit alors :

Dim l As Long, c As Long
'boucle de la ligne 4 à la dernière ligne renseignée de la colonne A
For l = 4 To Range("A65536").End(xlUp).Row
    'boucle de la colonne F à la dernière colonne renseignée sur la ligne 1
    For c = 6 To Range("IV1").End(xlToLeft).Column
        Cells(l, c).Value = "xxx"
    Next c
Next l

Rebonjour,

J'ai modifié mon code selon votre méthode "For..next" et cela fonctionne très bien ci-dessous le code.

Sub xxxxxxxxxxxx()

Dim l As Long, c As Integer

Dim iRow As Long
Dim iRowR As Long
Dim Month_Start As Integer
Dim Amount_total As Integer
Dim Month_total As Integer
Dim iCol As Integer
Dim Month_End As Integer

iRow = 3
iRowR = 2
iCol = 5
Month_Start = 1
Amount_total = 4
Month_total = 3
Month_End = 2

Application.ScreenUpdating = False
'boucle de la ligne 4 à la dernière ligne renseignée de la colonne A
For l = 3 To Range("A65536").End(xlUp).Row


'boucle de la colonne E à la dernière colonne renseignée sur la ligne 1
     For c = 5 To Range("IV1").End(xlToLeft).Column
        
        
       If Cells(iRowR, c).Value >= Cells(l, Month_Start).Value And Cells(iRowR, c).Value < Cells(l, Month_End).Value Then
   
         Cells(l, c).Value = Cells(l, Amount_total).Value / Cells(l, Month_total).Value

       Else
   
       Cells(l, c).Value = ""
              
           End If
           
     
     Next c

Next l

Application.ScreenUpdating = True
End Sub

Merci à tout le forum.

Soleil😎