argement non facultatif

[Marie2807]

Bonjour,

erreur de compilation
next sans for

j'ai réglé l'autre problème du message d'erreur. Sauf que la il me dis que je n'ai pas de for pour utiliser mon next... mais j'ai mon for each... donc j'y comprends rien

j'ai déjà tenté de fermer et de rouvrir, rien à changé

Sub Trouver()

    Dim i As Long
    Dim colonne As Long
    Dim bulle As Range
        
    With ThisWorkbook.Sheets("Feuil1")
        For i = 2 To .Cells(65536, 1).End(xlUp).Row
        
            If .Cells(i, 1).Value = .Cells(i + 1, 1).Value Then
                
                If .Cells(i, 19) = 1 Then
                
                    For Each bulle In columns
                                                            
                        Select Case .Cells(i, 19).Value < .Cells(i + 1, 19).Value
                            Case .Cells(i, 19).Value < .Cells(i + 1, 19).Value
                                .Cells(i + 1, 20).Value = 1
                                
                            Case .Cells(i, 19).Value < .Cells(i + 2, 19).Value
                                .Cells(i + 2, 20).Value = 1
                            
                            Case .Cells(i, 19).Value < .Cells(i + 3, 19).Value
                                .Cells(i + 3, 20).Value = 1
                                
                            Case .Cells(i, 19).Value < .Cells(i + 4, 19).Value
                                .Cells(i + 4, 20).Value = 1
                                
                            Case .Cells(i, 19).Value < .Cells(i + 5, 19).Value
                                .Cells(i + 6, 20).Value = 1
                                
                            Exit For
                            
                    Next bulle
                    
                End If
            End If
        Next i
    End With

Merci de votre aide

Marie

 

[Raja]

Re : argement non facultatif

Bonjour,

Si tu disais clairement ce que tu essaies de faire avec ton code et quel est le message d'erreur, on pourra t'aider.

 

[pierrejean]

Re : argement non facultatif

bonjour Marie

A mon avis cela vient d'ici

Range.Column

Mais come je ne sais pas ce que tu souhaites , je ne peux pas corriger !!

Edit : salut Raja

 

[Marie2807]

Re : argement non facultatif

oui en effet , le premier problème venait de là!! Merci pareil

J'ai changé de problème, mais je ne sais pas s'il existe un moyen de changer le titre de la discussion

désolé

Marie