Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Bonjour,Souhaite créer 1 compteur sur les lignes ci-dessous :UserForm6.Spreadsheet1.ActiveSheet.Range("a1").SelectUserForm6.Spreadsheet2.ActiveSheet.Range("a1").SelectUserForm6.Spreadsheet3.ActiveSheet.Range("a1").Select.....UserForm6.Spreadsheet6.ActiveSheet.Range("a1").SelectAvecFor i=1 to 6UserForm6.Spreadsheet1.ActiveSheet.Range("a1").Select <-- Comment remplacerle 1 par i ?Next iMerci
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
bonjour,ai pas essayé mais un truc du genreuserform6.Controls("TextBox" & i) .en remplacant bien sur Textbox par spreadsheet devrait sans doute convenirA+Bonjour,Souhaite créer 1 compteur sur les lignes ci-dessous :UserForm6.Spreadsheet1.ActiveSheet.Range("a1").SelectUserForm6.Spreadsheet2.ActiveSheet.Range("a1").SelectUserForm6.Spreadsheet3.ActiveSheet.Range("a1").Select.....UserForm6.Spreadsheet6.ActiveSheet.Range("a1").SelectAvecFor i=1 to 6UserForm6.Spreadsheet1.ActiveSheet.Range("a1").Select <-- Commentremplacer
Bonjour,Souhaite créer 1 compteur sur les lignes ci-dessous :UserForm6.Spreadsheet1.ActiveSheet.Range("a1").SelectUserForm6.Spreadsheet2.ActiveSheet.Range("a1").SelectUserForm6.Spreadsheet3.ActiveSheet.Range("a1").Select.....UserForm6.Spreadsheet6.ActiveSheet.Range("a1").SelectAvecFor i=1 to 6UserForm6.Spreadsheet1.ActiveSheet.Range("a1").Select <-- Commentremplacer
le 1 par i ?Next iMerci
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
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