[VBA] Boucle + selection d'une feuille

[ange180190]

Bonjour ,

j'ai à nouveau un petit soucis :

p = Cells(1, 1) + 1


    For i = 2 To p
       
Sheets("page" & (i)).Select

Range("F7").Select

ActiveCell.FormulaR1C1 = "Dossier : " & (Sheets("page" & (i - 1)).Cells(7, 6) + 1)
...

C'était mon idée mais elle ne fonctionne pas et j'ai regardé un peu partout...

J'aimerais qu'il me prenne la valeur de la cellule F7 de la page précédente et qu'il y rajoute 1 à cette valeur...(j'ai renommé toutes mes feuilles page1 , page2 , ... )

Merci ,
ange180190.

 

[Pierrot93]

Re : [VBA] Boucle + selection d'une feuille

Bonjour Angel,

regarde ce code si il peut t'aider...

Dim i As Byte
For i = 2 To Worksheets.Count
    Sheets(i).Range("F7").Value = Sheets(i - 1).Range("F7").Value + 1
Next i

bon après midi
@+

 

[ange180190]

Re : [VBA] Boucle + selection d'une feuille

Merci Pierrot , je vais tester ce code 🙂 ton aide m'est tjrs précieuse

Bonne aprèm à toi aussi !

 

[ange180190]

Re : [VBA] Boucle + selection d'une feuille

Il me met Erreur '13'
Incompatibilité de type

mais je ne vois pas pourquoi ?

 

[Pierrot93]

Re : [VBA] Boucle + selection d'une feuille

Re,

attention, avec le code donné, les cellules doivent contenir des nombres, si tu as du texte cela va boguer...

 

[ange180190]

Re : [VBA] Boucle + selection d'une feuille

ah mais oui , j'avais pas du tout fais attention à cela que je suis sotte , faut que j'organise ça autrement alors... merci 🙂

 

[Pierrot93]

Re : [VBA] Boucle + selection d'une feuille

Re,

tu peux peut être faire un test avec la fonction "isnumeric", à voir selon ton projet....

 

[ange180190]

Re : [VBA] Boucle + selection d'une feuille

merci du conseil , ca me sera certainement très utile

bonne soirée à toi 🙂