Exécution macro selon présence ou non d'une valeur dans colonne

Version imprimable

Bonjour

J'ai créé un code qui permet
> Atteindre une colonne nommée "Colonne_Nom"
> Rechercher la cellule contenant le libellé "Nom3"
> Selectionner la ligne entière
> Appliquer le format "Standard" à toute la ligne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Macro3() 'Atteindre Colonne Application.Goto Reference:="Colonne_Nom" 'Recherche Nom Cells.Find(What:="Nom3", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ True, SearchFormat:=False).Activate 'Selection Ligne ActiveCell.EntireRow.Select 'Format Cellule Selection.NumberFormat = "General" End Sub
Tout fonctionne bien sauf que selon le tableau que j'importe, la cellule contenant le libellé "Nom3" n'existe pas forcément.
Et alors dans ce cas ma macro est interrompue.

Je suppose qu'il faut placer un "if" dans le code mais j'avoue ne pas connaître la procédure.
D'avance merci pour votre aide.
Cordialement.
StSym

14/03/2016, 23h13
Marc-L

'soir !

En fait c'est le cas typique de la mauvaise utilisation de la méthode Find avec un Activate pour conclure,
certainement un code généré par l'Enregistreur de macros !
Là le réflexe est de placer le curseur texte dans le code sur Find puis d'appuyer sur la touche:f1:
et enfin corriger le code en suivant celui de l'exemple de l'aide (niveau débutant !) …

______________________________________________________________________________________________________
Je suis Paris, Charlie, la Côte d'Ivoire, la Turquie, …

Bonsoir Marc-L

Tout d'abord merci pour ta réponse rapide.

En effet ma macro a été générée en partie par l'enregistreur.
J'ai suivi ton conseil de passer par F1

J'ai testé le code suivant proposé :
Code:

1 2 3 4 5 6 7 8 9 10 With Worksheets(1).Range("a1:a500") Set c = .Find(2, lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = 5 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With
Il fonctionne bien mais la macro s'arrête à

"Loop While Not c Is Nothing And c.Address <> firstAddress"

Je vais essayer de savoir pourquoi.

Merci pour ton conseil et pour ton aide

Cordialement.

StSym

15/03/2016, 12h09
Marc-L

Coquille de l'aide ! Mais bon, en cherchant à comprendre la logique,
ce n'est pas compliqué de corriger la ligne n°8 par Loop Until c.Address = firstAddress …

Dans ton cas tu as juste à tester si le résultat n'est pas vide pour modifier le format de la ligne :

If Not c is Nothing Then c.EntireRow.NumberFormat = "General" …

Et oui, un bon code n'utilise pas ces affreux ralentisseurs d'Activate & Select !

La variable c devant être déclarée en Range et être libérée à la fin si elle n'est pas vide par Set c = Nothing …

Sinon il y a aussi Application.Match correspondant à la fonction de feuille de calculs EQUIV (là voir l'aide d'Excel)
affectée si besoin à une variable de type Variant et à tester avec IsError ou encore IsNumeric …

Bonjour Marc-L

Grâce à tes conseils, je suis arrivé à une solution qui fonctionne.
Avec toutes les pistes que tu as citées, je vois que j'en ai encore beaucoup à explorer.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub NewTest02()
Dim c As Range
With Worksheets("Test").Range("Colonne_Nom")
    Set c = .Find("Nom3", LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                If Not c Is Nothing Then c.EntireRow.NumberFormat = "General"
                Set c = .FindNext(c)
            Loop Until c.Address = firstAddress
        End If
    Set c = Nothing
End With
End Sub

Encore merci pour ton aide.
Cordialement.
StSym