Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Tatiana29

XLDnaute Occasionnel
Bonjour,
j'ai un fichier avec deux onglets "liste banque" et un onglet "1".
Je compare deux cellules identiques et cela répond oui si c'est ok.


Dim i As Integer
i = 1

If ActiveWorkbook.Sheets("Liste Banque").Range("B6").Value =ActiveWorkbook.Sheets(i).Range("B7").Value
Then
ActiveWorkbook.Sheets("1").Range("C7").Value = "oui"
End If

dans ce cas là, ca ne marche pas si je mets ce code là sans la variable i
en mettant directement le nom de l'onglet.
If ActiveWorkbook.Sheets("Liste Banque").Range("B6").Value =
ActiveWorkbook.Sheets(1).Range("B7").Value
Then
ActiveWorkbook.Sheets("1").Range("C7").Value = "oui"
End If
Je ne sais pas pourquoi cela ne marche pas en mettant la variable i

Cela doit être assez simple,je pense à un type de format de variable.

Tatiana
 
Re : Pb Macro VBA

Pour faire plus simple,je mets ce code et ca ne met pas "oui" dans la cellule souhaitée alors que mon onglet s'appelle bien 1

Dim i As Integer
i = 1
ActiveWorkbook.Sheets(i).Range("C7").Value = "oui"
 
Re : Pb Macro VBA

Nikel!
Un grand merci Pierrot et je viens de découvrir que l'on peut se servir de variables strin comme compteur.
je ne pensais qu'il y avait uniquement les Integer.
Merci à toi et vive ce forum.

Dim i As String
i = "1"

Do
ActiveWorkbook.Sheets(i).Range("C7").Value = "oui"
i = i + 1
Loop While i < 3
 
Re : Pb Macro VBA

Re,

Aarf, perso préférerais utiliser la fonction "cstr", plus "orthodoxe" :
Code:
Dim i As Integer
i = 1
Do
ActiveWorkbook.Sheets(CStr(i)).Range("C7").Value = "oui"
i = i + 1
Loop While i < 3
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
528
Réponses
5
Affichages
915
Réponses
4
Affichages
735
Réponses
10
Affichages
666
Réponses
5
Affichages
575
Réponses
15
Affichages
791
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…