Pb Macro VBA

[Tatiana29]

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

 

[Tatiana29]

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"

 

[Pierrot93]

Re : Pb Macro VBA

Bonjour,

modifie peut être ceci :

Dim i As Integer
i = 1

En cela :

Dim i As String
i = "1"

bon après midi
@+

 

[Pierrot93]

Re : Pb Macro VBA

Re,

Dim i As Integer
i = 1
ActiveWorkbook.Sheets(i).Range("C7").Value = "oui"

en l'état c'est le numéro d'index de la feuille qui est pris en compte....

 

[Tatiana29]

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

 

[Pierrot93]

Re : Pb Macro VBA

Re,

Aarf, perso préférerais utiliser la fonction "cstr", plus "orthodoxe" :

Dim i As Integer
i = 1
Do
ActiveWorkbook.Sheets(CStr(i)).Range("C7").Value = "oui"
i = i + 1
Loop While i < 3

 

[Tatiana29]

Re : Pb Macro VBA

Cool!Merci pour ces astuces!
Bientot c'est moi qui vait pouvoir dépanner les gens sur le forum.
The CStr function converts a value to a string.