Changement de lettre dans macro

[Amandine]

Je remercie Robert de m'avoir fait cette macro, mais j'arrive pas à changer certaines choses pour l'adapter à mon tableau c'est que mes colonnes ne sont plus A,B et C mais N, O et P.

Voici la macro, pouvez m'aider à changer ces lettres contenues dans cette dernière :

Private Sub UserForm_Initialize() 'à l'initialissation de l'Userform
Dim cel As Range 'déclare la variable cel

'boucle sur toutes les cellules editées de la colonne A (en partant de A2)
For Each cel In Range('A2:A' & Range('A65536').End(xlUp).Row)
'evite le big si une données dans
'les colonne A et B n'est pas une date
On Error Resume Next

'*************************
'remplissage de la ListBox
'*************************

'condition : si la date de la colonne B est supérieure à la date de la colonne A
'et qu'en colonne C il y a 'non'
If DateValue(Date) > DateValue(cel.Offset(0, 1).Value) And _
UCase(cel.Offset(0, 2).Value) = 'NON' Then
'ajoute la cellule de la colonne A (en colonne 0 de la ListBox)
ListBox1.AddItem cel.Value
'ajoute la cellule de la colonne B (en colonne 1 de la ListBox)
ListBox1.Column(1, x) = cel.Offset(0, 1).Value
'ajoute la cellule de la colonne C (en colonne 2 de la ListBox)
ListBox1.Column(2, x) = cel.Offset(0, 2).Value
'ajoute le numéro de ligne de la cellule
'cette colonne est masquée dans la Listbox (voir propriété ColumnWidths)
ListBox1.Column(3, x) = cel.Row
x = x + 1 'définit la variable x
End If 'fin de la condition

Next cel 'prochaine cellule éditée de la colonne A

End Sub

Private Sub ListBox1_Click() 'au clic dans la ListBox1

'*********************************************************************
'Sélectionne la cellule de la colonne C correspondante à l'item cliqué
'*********************************************************************

'boucle sur tous les item de la Listbox1
For x = 0 To ListBox1.ListCount

'si l'item est sélectionné
If ListBox1.Selected(x) = True Then
Cells(ListBox1.Column(3, x), 3).Select 'sélectionne la cellule coorespondante (Colonne C)
Exit For 'sort de la boucle
End If 'fin de la condition

Next x 'prochain item de la la ListBox1
End Sub



Merci

Merci

 

[Robert]

Bonsoir Amandine, bonsoir le forum,

Apparemment tu n'as toujours la lu la charte... La réponse dans ton premier post...