Excel VBA créer UserForm création et UserForm de Modification

Salut  

Digression sur Worksheets

Un classeur possède une liste de ses feuilles. Cette liste s'appelle Worksheets (avec un s, donc) et c'est au sens VB, une collection. Pour accéder à une de ces feuilles, on précise soit le nom soit le numéro de la feuille dans la méthode Item :

MsgBox "La feuille #1 s'appelle : " & ThisWorkbook.Worksheets.Item(1).Name

MsgBox "Le numéro de la feuille 'Feuil2' est : " & "ThisWorkbook.Worksheets.Item("Feuil2").Index

Bon, comme cela alourdit énormément l'écriture, on a inventé les méthodes par défaut. Quand on ne précise rien, pour une collection, la méthode par défaut est Item. En plus, contextuellement, on se passe de préciser le classeur. Ça donne :

MsgBox "La feuille #1 s'appelle : " & Worksheets(1).Name

MsgBox "Le numéro de la feuille 'Feuil2' est : " & "Worksheets("Feuil2").Index

Comme Worksheets est une collection, on peut itérer dessus, c'est à dire parcourir ces éléments, on peut connaître le nombre d'éléments, etc. En VB, l'itération dans une collection se fait avec un For Each :

Dim ws As Worksheet

 
MsgBox "Il y a " & Worksheets.Count & " feuille(s) dans ce classeur"

For Each ws In Worksheets

    MsgBox "La feuille n°" & ws.Index & " se nomme '" & ws.Name & "'."

Next

Il existe pleins d'autres collections, dont le nom est toujours au pluriel. Citons notamment Workbooks, la collection des classeurs ouverts dans Excel et Cells, la collection des cellules d'une feuille ou d'une zone de feuille.

Attardons-nous sur Cells.
Voici comment on désigne avec orthodoxie une cellule :

Workbooks.Item("classeur1").Worksheets.Items("Feuil1").Cells.Item(1, 1)

Mouais.  
Voici la version raccourcie :

Workbooks("classeur1").Worksheets("Feuil1").Cells(1, 1)

. Si il n'y a pas de doute sur le classeur ou sur la feuille, on peut ne pas les préciser.

Range() renvoie une portion rectangulaire de feuille dont on précise deux coins opposés :

MsgBox Range(Cells(2, 3), Cells(4, 5)).Address

Pour accéder aux cellules de cette zone, on utilise Cells, bien sûr :

MsgBox Range(Cells(2, 3), Cells(4, 5)).Cells(2, 2).Value

Les deux premiers Cells sont relatifs à la feuille, le dernier, à la zone.
(Pour que l'exemple soit probant, mets quelque chose dans la cellule D3   )

Par ailleurs, Range() accepte comme paramètre, soit une cellule, soit une adresse de cellule.

MsgBox Range(Cells(2, 3), Cells(4, 5)).Cells.Address

MsgBox Range("C2", Cells(4, 5)).Cells.Address

MsgBox Range(Cells(2, 3), "E4").Cells.Address

MsgBox Range("C2", "E4").Cells.Address

MsgBox Range("C2:E4").Cells.Address

Bon. un truc va nous simplifier la vie. Range() a Cells comme méthode par défaut. Donc on va pouvoir ne plus le préciser.

MsgBox Range("C2:E4").Address

Et comme une cellule, ça reste une zone de cellules rectangulaire quand même :

MsgBox Range("C2").Address

Voici donc l'adresse de la cellule C2 :

MsgBox Cells(2, 3).Address

MsgBox Range("C2").Cells.Address

MsgBox Range("C2").Cells(1, 1).Address

MsgBox Range("C2").Address

C'est quand même bien souvent plus pratique, non ?

Au fait, comme Cells est une collection, et que Range().Cells = Range(), Range() se comporte comme une collection :

Dim cellule

 
For Each cellule In Range("A1:B3")

    MsgBox cellule.Address

Next

Il se trouve que le type de données Cell n'existe pas en VBA/Excel. Curieux, non ? Ce qui existe, c'est "plage de cellules". Et ça se dit Range. (A ne pas confondre avec Range())

Donc la ligne 1 du code précédent s'écrit :

Dim cellule As Range

Quoi, t'es tout embrouillé ?  
T'avais qu'à pas me dire que tu lisais les messages jusqu'au bout  

La suite

Parce que maintenant on passe à la suite.
Alors si je comprends bien, tu as une liste de noms de feuilles dans la colonne A, et tu voudrais renommer des feuilles. Facile.

Parcourons la colonne A.
Soit on en définit les bornes d'avance, soit on parcourt TOUTE la colonne, quitte à sortir en route.

Dim i As Long ' // Un entier

 
' // Version longue

For i = 1 To 65536

    ....

Next

 
' // Version "on réfléchit avant"

Dim ligne_der As Long

ligne_der = Range("A65536" ).End(xlUp).Row

 
For i = 1 To ligne_der

    ...

Next

 
' // Version "on verra en allant"

For i = 1 To 65536

    If Cells(i, 1).Value <> "" Then Exit For

    ....

Next

A ces versions où on utilise des nombres, je préfère celles-ci, où on utilise des cellules :

Dim c As Range ' // Une cellule

 
' // Version longue

For Each c In Rows(1)

    ....

Next

 
' // Version "on réfléchit avant"

Dim cellule_der As Range

cellule_der = Range("A65536" ).End(xlUp)

 
For Each c In Range ("A1", cellule_der)

    ...

Next

 
' // Version "on verra en allant"

For Each c In Rows(1)

    If c.Value <> "" Then Exit For

    ....

Next

J'apprécie particulièrement la dernière version.

Mais dans ton cas précis, on a besoin de gérer un compteur. Donc on va choisir une version avec entier :

For i = 2 To 65536

    If Cells(i, 1).Value <> "" Then Exit For

    MsgBox "Feuille n°" & i & vbCrLf _

           "Ancien nom : " & Worksheets(i).Name  & vbCrLf _

           "Nouveau nom : " & Cells(i, 1).Value

    Worksheets(i).Name = Cells(i, 1).Value

Next

Bon, ceci était pour reprendre ton code, qui ne correspond pas à la description de ce que tu veux faire.

Epilogue

A la lumière de ces très (trop ?) nombreux éléments, voudrais-tu reformuler ton besoin, et voire proposer un début de bout de code ?
Comme on a évoquer la collection Workbooks, gérer des cellules, des feuilles et donc même des classeurs ne devraient pas être si difficile