Erreur dans boucle For

[Temjeh]

Bonjour à tous

Depuis 2 hrs j'essais toute les facon et je n'y arrive pas

Je part la macro sur feuille1
Dans ma Feuilles je boucle sur col G
Si cell est différente de rien
Copie cette cell et la cel de sa ligne de col B en feuil "Rapp. Mensuel" sous la dernière cell vide sous B18 et l'autre même ligne 2 col plus loins.

J'ai ceci que j'ai fait et ca a l'air bon mais ca fait rien comme résultat:

For i = 4 To 54
If Range("G" & i).Value <> "" Then
Sheets("Rapp. Mensuel").Range("B" & Range("B18").End(xlUp).Row).Offset(1, 0).Value = Range("B" & i).Value
Sheets("Rapp. Mensuel").Range("B" & Range("B18").End(xlUp).Row).Offset(1, 2).Value = Range("G" & i).Value
End if
Next i

Merci beaucoup pour votre aide ou une direction

Temjeh

 

[Mytå]

Re : Erreur dans boucle For

Salut Temjeh

Essaye ceci

Private Sub CommandButton1_Click()
 
Dim LgnDeb As Long
Dim LgnCpy As Long
 
With Sheets("Feuil1")

For LgnDeb = 4 To 54

LgnCpy = Sheets("Rapp. Mensuel").Range("B65536").End(xlUp).Row + 1

If LgnCpy < 18 Then LgnCpy = 18

If .Range("G" & LgnDeb).Value <> "" Then
.Range("B" & LgnDeb).Copy Sheets("Rapp. Mensuel").Cells(LgnCpy, 2)
.Range("G" & LgnDeb).Copy Sheets("Rapp. Mensuel").Cells(LgnCpy, 4)
End If

Next LgnDeb

End With

End Sub

Mytå

 

[Temjeh]

Re : Erreur dans boucle For

Merci beaucoup

Ca à l'air pas pire mais ca fait rien !! aucune donnée de copier

Je me couche bientot je reviens demain(moi aussi du quebec)

Merci

Temjeh

 

[Mytå]

Re : Erreur dans boucle For

Re Temjeh,

Surement juste le nom des feuilles à vérifier.

Mytå

P.S. Non fonctionnel sous Excel 97, car aucun .Select

 

[Temjeh]

Re : Erreur dans boucle For

Bon me voici plus lucide avec une bonne nuit de sommeil

L'erreur venait que j'ai mal expliquer les cells d'arriver. C'était plus petit que la ligne B18 donc avec le plus grand ca collais les donnérs plus bas dans me feuille et je ne les voyais pas.

If LgnCpy > 18 Then LgnCpy = 18

Merci beaucoup

Temjeh

 

[Temjeh]

Re : Erreur dans boucle For

Rebonjour

Si tu passe dans le coin coment lui faire remplacer les données. La cell d'arrivée est toujour B13

Merci

Temjeh

Merci j'ai trouvé:

Avant la boucle:
Sheets("Feuil2").Range("B13:B17") = ""
ensuite colle les données en 1ere celle vide en haut de B18 ..part a la ligne 13
...
LgnCpy = Sheets("Feuil2").Range("B18").End(xlUp).Row + 1
If LgnCpy < 13 Then LgnCpy = 13

Merci

Quand je met le singe c'est que je suis heureux!

 

[Temjeh]

Re : Erreur dans boucle For

Rebonjour

Si tu repasse encore j'ai un Hic!!!!

Merci

[size=+1]Ok j'ai trouvé et modifié fallait sortir ExitFor mais au 2ème:[/size]

With Sheets("Base")
  For i = 1 To .Range("A65000").End(xlUp).Row
    If .Range("A" & i).Value = ComboBox1.Text Then
        
        For v = 1 To Sheets("Langues").Range("A65000").End(xlUp).Row
            If Range("A" & i).Value = ComboBox1.Text And Range("E" & i).Value = Sheets("Langues").Range("A" & v).Value Then GoTo suivant
        Next v
            
        L = Sheets("tous").Range("A65000").End(xlUp).Row + 1
        Sheets("tous").Range("A" & L & ":H" & L).Value = .Range("A" & i & ":H" & i).Value
        
    End If
suivant:
  Next i
End With

Bravo! et merci beaucoup
Temjeh