Erreur avec la Boucle For

Bonjour chers tous

Aidez moi à corriger ce bout de code.

VBA me signale une erreur des le début de la boucle

Merci

   Dim cc as range
With ActiveSheet
For Each cc In .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp) + 1)
      If cc = TextBox1 Then
        Sheets("Ages").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Year(.Range("B" & cc.Row))
        Sheets("Ages").Range("B" & Rows.Count).End(xlUp).Offset(1, 0) = .Range("E" & cc.Row)
      End If
    Next cc
end with

Bonjour,

D'où sort votre TextBox1 ? Et quelle est sa valeur ?

En fait je vérifie en colonne A les codes identiques au code saisi en Textbox1 et extrait les informations

Oui mais alors à quel userform appartient ce contrôle ?

A tester :

Dans le Userform :

    MajValeur TextBox1

Dans un module standard :

Sub MajValeur(ByVal ValeurTextBox1 As Variant)

Dim DerniereLigneSh As Long, DerniereLigneAge As Long
Dim cc As Range, AireSh As Range
Dim Sh As Worksheet, ShAges As Worksheet

    Set Sh = ActiveSheet ' Sheets("XXX")
    Set ShAges = Sheets("Ages")

    With Sh
         DerniereLigneSh = .Cells(.Rows.Count, 1).End(xlUp).Row
         Set AireSh = .Range("A1:A" & DerniereLigneSh)
         For Each cc In AireSh
             If cc = ValeurTextBox1 Then
                With ShAges
                     DerniereLigneAge = .Cells(.Rows.Count, 1).End(xlUp).Row
                     If IsDate(cc.Offset(0, 1)) Then
                        .Cells(DerniereLigneAge + 1, "A") = Year(cc.Offset(0, 1))
                        .Cells(DerniereLigneAge + 1, "B") = cc.Offset(0, 4)
                     End If
                End With
             End If
         Next cc
    End With

    Set Sh = Nothing: Set ShAges = Nothing: Set AireSh = Nothing

End Sub

je joins un fichier pour test

Merci

4classeur.xlsm (20.42 Ko)

Merci!!

La fatigue me gagne on dirait !!

Bonjour KTM

Déjà dit il me semble

  • Ne postez pas la même question sur un autre forum pour éviter de faire perdre bêtement du temps aux membres sur un problème qui peut être déjà résolu sur l'autre forum. L'inverse est également valable, si vous avez déjà posé votre question sur un autre forum, ne créez pas un doublon sur ce forum (à moins d'avoir clôturé le sujet sur l'autre forum).

La prochaine fois désolé, mais je devrai sévir sans préavis, merci de votre compréhension

Rechercher des sujets similaires à "erreur boucle"