Next i

[LaurentG]

Bonjour,

Voilà mon petit soucis :

J'ai un userform avec des cases à cocher.
quand je coche celles-ci la feuille 1 se remplit avec la caption.
J'ai donc dans la feuille 1 une liste dans la colonne A.

Dans ma deuxième feuille, j'aimerai que ce listing soit remis, mais à partir de la celulle A11.
Cependant je veux que çà s'arrête à la cellule A42 et qu'après çà passe à la celulle F11.

Je pense qu'il faudrait faire un truc avec next i pour parcourir le listing dans la feuille 1 (afin que çà s'arrête lorsque la celulle suivante est vide) avec en plus un petit code qui fera sauter de la celulle A42 à F11 dans la feuille 2. Mais je comprends pas grand chose au code next ...
Si quelqu'un peut m'aider, merci beaucoup.

J'espère que mon explication est assez claire.

Laurent

 

[Hervé]

Bonjour laurent G, le forum

Tu peux peut etre t'inspirer de ce code pour comprendre l'incrémentation des numéros de ligne :

Sub Bouton1_QuandClic()
Dim j As Byte
Dim ligne As Byte
Dim colonne As Byte

ligne = 11
colonne = 1

For j = 1 To 75
    If ligne = 43 Then
        ligne = 11
        colonne = 6
    End If
   
    Cells(ligne, colonne) = j
    ligne = ligne + 1
   
  Next j
End Sub

salut

 

[LaurentG]

Re,

Merci!
Voici le code que j'ai mis :

Dim ligne As Byte
Dim colonne As Byte
Dim Compteur As Integer, Fin_Liste As Integer

ligne = 11
colonne = 1

Sheets('feuil1').Select
Fin_Liste = Sheets('feuil1').Range('a65535').End(xlUp).Row
' De facon globale il vaut mieux partir de la fin pour remonter
' Et teouver la première ligne non vide


For Compteur = 1 To Fin_Liste
Sheets('feuil2').Select
    If ligne = 43 Then
        ligne = 11
        colonne = 6
    End If
    j = Sheets('feuil1').Cells(Compteur).Value
    Sheets('feuil2').Cells(ligne, colonne) = j
    ligne = ligne + 1
    
    Next Compteur
   


End Sub

j'ai un problème maintenant c'est qu'il ne me mets que la valeur de la cellule A1. j'ai l'impression que la boucle ne fonctionne pas.

J'ai des valeurs en A1 A2 A3.

Vois-tu d'où vient le prbe ?

Merci

Laurent

 

[Hervé]

bonjour laurent, le forum

Laurent ton souci est du au fait que tu n'a pas indiqué le numéro de la colonne :

j = Sheets('feuil1').Cells(Compteur).Value

cells, se construit en indiquant un n° de ligne, et un n° de colonne.

Essaye comme ceci :

j = Sheets('feuil1').Cells(Compteur,1).Value

De plus pense à déclarer ta variable J, string pour du texte, integer, long ou double pour du numérique.

enfin, Sheets('feuil2').Select, n'est pas nécessaire car tu référence bien ta feuille lors de l'appel des cellules : Sheets('feuil2').Cells(ligne, colonne) = j.

Ou alors, place le en dehors de la boucle for to, ca permettra d'éviter ce scintillement, un peu désagréable, de la sélection de feuille.

salut