Discussion :

[Jordywolf]

Bonjour,
j'obtiens une erreur division par zéro en essayant de récupérer le numéro de colonne de la cellule active. Ceci n'arrive que quand j'execute la macro normalement. En exécution pas a pas, l'erreur ne se produit pas. J'ai du mal à comprendre. pouvez-vous m'aider? Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Rows("1:1").Select
        Selection.Find(What:=dateconv, After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=True).Activate
 
            Col = ActiveCell.Column

Merci d'avance

Phil

[Invité]

Bonjour Jordywolf

Perso, j'essaierai plutôt ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  Rows("1:1").Find(What:=DateConv, LookIn:=xlFormulas, LookAt:=xlPart, _
             SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
  Col = ActiveCell.Column

A+

[AlainTech]

Bonjour,

Pour ma part, je ferais plutôt comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim c As Range
 
Set c = Rows("1:1").Find(What:=DateConv, LookIn:=xlFormulas, LookAt:=xlPart, _
             SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If c Is Nothing Then
  Msgbox "Pas trouvé " & DateConv
Else
  Col = c.Column 
End If