S
SubSony
Guest
Bonjour tout le monde !!!
Alors voila mon soucis : je veux parcourir les lignes d'une colonne (dont les lignes sont fusionnées deux par deux...) pour récupérer des noms. Et il semblerait que la fusion des lignes, vba aime pas trop... Quand je fais un débugage pas à pas il me prend bien les deux premiers noms, il ne me trouve rien dans la troisième, il me trouve un nom en quatrième et il sort... Alors déja pourquoi qu'il sort pas avant (quand il a trouvé la ligne vide) et du coup pourquoi il s'arrète aprés !!! Si j'avais encore des cheuveux je me les arracherais !!! Je met mon code...
Si quelqu'un arrive à me dépatouiller ça ce serait super cool !!! :lol:
Merci d'avance les gens !!
Alors voila mon soucis : je veux parcourir les lignes d'une colonne (dont les lignes sont fusionnées deux par deux...) pour récupérer des noms. Et il semblerait que la fusion des lignes, vba aime pas trop... Quand je fais un débugage pas à pas il me prend bien les deux premiers noms, il ne me trouve rien dans la troisième, il me trouve un nom en quatrième et il sort... Alors déja pourquoi qu'il sort pas avant (quand il a trouvé la ligne vide) et du coup pourquoi il s'arrète aprés !!! Si j'avais encore des cheuveux je me les arracherais !!! Je met mon code...
Code:
Sub Initialisation()
Dim i As Integer, j As Integer
Dim Cel As Range
Dim Entree As String
Set Cel = Worksheets('EdT Prof 2005 - 2006 Sem A').Range('A2')
For i = 0 To Cel.End(xlDown).Row - 1
Entree = Cel.Offset(i)
With Interface
For j = 0 To .Prof_Nom.ListCount - 1
If .Prof_Nom.List(j) > Entree Then
Exit For
End If
Next j
.Prof_Nom.AddItem Entree, j
End With
Next i
Worksheets('Absences 2005 - 2006').Select
Interface.Jour = Cel.End(xlDown).Row - 1
End Sub
Si quelqu'un arrive à me dépatouiller ça ce serait super cool !!! :lol:
Merci d'avance les gens !!