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
Tout fonctionne bien sauf que selon le tableau que j'importe, la cellule contenant le libellé "Nom3" n'existe pas forcément.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
Partager