Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Création d'1 compteur

Création d'1 compteur

2 réponses
Avatar
Serge
Bonjour,

Souhaite créer 1 compteur sur les lignes ci-dessous :


UserForm6.Spreadsheet1.ActiveSheet.Range("a1").Select
UserForm6.Spreadsheet2.ActiveSheet.Range("a1").Select
UserForm6.Spreadsheet3.ActiveSheet.Range("a1").Select
....
UserForm6.Spreadsheet6.ActiveSheet.Range("a1").Select

Avec

For i=1 to 6
UserForm6.Spreadsheet1.ActiveSheet.Range("a1").Select <-- Comment remplacer
le 1 par i ?
Next i

Merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
anonymousA
bonjour,

ai pas essayé mais un truc du genre
userform6.Controls("TextBox" & i) .
en remplacant bien sur Textbox par spreadsheet devrait sans doute convenir

A+




Bonjour,

Souhaite créer 1 compteur sur les lignes ci-dessous :


UserForm6.Spreadsheet1.ActiveSheet.Range("a1").Select
UserForm6.Spreadsheet2.ActiveSheet.Range("a1").Select
UserForm6.Spreadsheet3.ActiveSheet.Range("a1").Select
.....
UserForm6.Spreadsheet6.ActiveSheet.Range("a1").Select

Avec

For i=1 to 6
UserForm6.Spreadsheet1.ActiveSheet.Range("a1").Select <-- Comment remplacer
le 1 par i ?
Next i

Merci





Avatar
Serge
Nickel !

Merci
Serge

"anonymousA" a écrit dans le message
de news:
bonjour,

ai pas essayé mais un truc du genre
userform6.Controls("TextBox" & i) .
en remplacant bien sur Textbox par spreadsheet devrait sans doute convenir

A+




Bonjour,

Souhaite créer 1 compteur sur les lignes ci-dessous :


UserForm6.Spreadsheet1.ActiveSheet.Range("a1").Select
UserForm6.Spreadsheet2.ActiveSheet.Range("a1").Select
UserForm6.Spreadsheet3.ActiveSheet.Range("a1").Select
.....
UserForm6.Spreadsheet6.ActiveSheet.Range("a1").Select

Avec

For i=1 to 6
UserForm6.Spreadsheet1.ActiveSheet.Range("a1").Select <-- Comment
remplacer


le 1 par i ?
Next i

Merci