Guthurhall
XLDnaute Nouveau
Bonjour,
J'ai un tableau sur 2 feuilles. La première feuille contient dans la première colonne des chaines de caracteres et je souhaite renvoyer dans la premiere colonne de la deuxieme feuille une partie de la chaine de caractere.
J'ai écrit ce code mais il doit me manque des éléments pour que ça fonctionne (je débutte en VBA). Aussi, je sollicite votre aide !!!
Merci d'avance !!
Sub Sélect_carac()
Dim ind As Integer
Dim celluleorig As String
Dim LaFeuille1 As Worksheet
Dim LaFeuille2 As Worksheet
Dim cellulebut As String
Set LaFeuille1 = ThisWorkbook.Worksheets("Feuil1")
Set LaFeuille2 = ThisWorkbook.Worksheets("Feuil2")
ind = 1
While ind < 30000
celluleorig = LaFeuille1.Range("a" & ind).Select
cellulebut = Mid(celluleorig, 16, 5)
ind = ind + 1
Wend
End Sub
J'ai un tableau sur 2 feuilles. La première feuille contient dans la première colonne des chaines de caracteres et je souhaite renvoyer dans la premiere colonne de la deuxieme feuille une partie de la chaine de caractere.
J'ai écrit ce code mais il doit me manque des éléments pour que ça fonctionne (je débutte en VBA). Aussi, je sollicite votre aide !!!
Merci d'avance !!
Sub Sélect_carac()
Dim ind As Integer
Dim celluleorig As String
Dim LaFeuille1 As Worksheet
Dim LaFeuille2 As Worksheet
Dim cellulebut As String
Set LaFeuille1 = ThisWorkbook.Worksheets("Feuil1")
Set LaFeuille2 = ThisWorkbook.Worksheets("Feuil2")
ind = 1
While ind < 30000
celluleorig = LaFeuille1.Range("a" & ind).Select
cellulebut = Mid(celluleorig, 16, 5)
ind = ind + 1
Wend
End Sub