Cell Find + Condition.

[Flop]

Bonjour à tous.. j'ai ce code qui marche très bien si il trouve la valeur "CONGES" dans le cas contraire ca bug, comme faire une condition cell.finds, je n'y arrive pas, j'ai trouvé qq exemples mais je n'arrive pas à les faire coller chez moi, merci de votre aide.

'ajoute une ligne si congés
                Sheets("Top.5").Range("A1").Select
                Cells.Find(What:="CONGES", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
                :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                False, SearchFormat:=False).Activate
'ajoute une ligne supplémentaire
            Selection.EntireRow.Insert
            Selection.Offset(0, -3).Select 'selectione le début de la plage
            Range(ActiveCell, ActiveCell.Offset(0, 11)).Select 'selectione la bonne plage
            Selection.ClearContents

 

[Guest]

Re : Cell Find + Condition.

Bonjour Flop,

Essaie avec ceci. Difficile de vérifer sans classeur.

[COLOR=blue]Dim c as Range[/COLOR]
'Cherche une cellule contenant "CONGES"
                Sheets("Top.5").Range("A1").Select
                [COLOR=blue]set c=[/COLOR]Cells.Find(What:="CONGES", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
                :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                False, SearchFormat:=False))
 
'ajoute une ligne supplémentaire si une cellule correspondant à "CONGES" a été trouvé
           [COLOR=blue]If Not c Is Nothing then[/COLOR]
               c.select
               Selection.EntireRow.Insert
               Selection.Offset(0, -3).Select 'selectione le début de la plage
               Range(ActiveCell, ActiveCell.Offset(0, 11)).Select 'selectione la bonne plage
               Selection.ClearContents
            [COLOR=blue]End If[/COLOR]

A bientôt

 

[Flop]

Re : Cell Find + Condition.

merci, ca ne marche pas, meme erreur que moi lors de mes tests :

Erreur d'exéctuion 91

Variable objet ou variable de bloc With non définie.

je cherche.. je cherche..

 

[Guest]

Re : Cell Find + Condition.

re bonjour Flop,

Il faut voir sur quelle ligne (Lancer la macro pas à pas 'touche F8 de l'éditeur de macro VBE) ce message d'erreur apparaît et vérifier à l'aide de la fenêtre variables (Affichage/affichage fenêtre variables locales) quelle est la variable objet non définie.

A bientôt

 

[Flop]

Re : Cell Find + Condition.

c'est bon j'ai trouvé :

voici le code qui marche :

'ajoute une ligne si congés
            Sheets("Top").Range("A1").Select
                If Cells.Find(What:="CONGES", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
                :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                False, SearchFormat:=False) Is Nothing Then
        MsgBox "titi"
        Else 'si on trouve le mot "conges"
        Cells.Find(What:="CONGES", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
                :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                False, SearchFormat:=False).Activate
             MsgBox "toto"

 
    End If

 

[Guest]

Re : Cell Find + Condition.

Re,

Hum ça parait un peu fumeux mais bon si ça marche tant mieux.

Essaie sinon de joindre un fichier si toutefois, cela n'allait plus.

A bientôt

 

[Flop]

Re : Cell Find + Condition.

Hum ça parait un peu fumeux mais bon si ça marche tant mieux.

C'est tout moi ca !!