Sélection d'une cellule d'une feuille

Fermé
Marie155 Messages postés 10 Date d'inscription lundi 25 mars 2013 Statut Membre Dernière intervention 9 avril 2013 - 9 avril 2013 à 16:14
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 9 avril 2013 à 17:34
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 dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
Modifié par lermite222 le 9/04/2013 à 17:37
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