Sélection d'une cellule d'une feuille

Marie155 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Pouvez vous me dire pourquoi ce code ne fonctionne pas ? j'y réfléchis depuis 1h et je ne vois vraiment pas.

"Sub blabla()
Dim Ws As Worksheet
Dim NoCol As Integer, depart As Integer

'Initialisation
NoCol = 4 '
depart = 7


For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Feuil3" Then
Ws.Cells(depart, NoCol).Select 'l'erreur se produit ici ....
'mon code qui travaille avc ActiveCell
End If
Next Ws

End Sub"

Merciiii

1 réponse

lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
Probable que tu modifie les valeurs dans la suite de ton code..
essaye en déplacant l'initialisation des variables..
For Each Ws In ThisWorkbook.Worksheets  
    If Ws.Name <> "Feuil3" Then   
         NoCol = 4 '  
        depart = 7  
        '.....

Sinon, poste toute la procédure.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
0