Discussion :

[JeanPaulR]

Bonjour,
Je ne parviens pas à faire fonctionner ce code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
[Public Sub TRI()
Sheets("XXX").Activate
Dim plage As Range
Dim rep As Range
    On Error Resume Next
    Application.DisplayAlerts = False
    Set plage = Range("P25:P50")
    Set rep = Application.InputBox("Cliquer un Nom dans la Colonne Acquéreur", "Cliquez", Type:=8)
    On Error GoTo 0
   Application.DisplayAlerts = True  
If rep Is Nothing Then 'Controle zone de saisie vide Bouton Annuler
       MsgBox "Recommencer ! "
      rep = Application.InputBox("Cliquer un Nom dans la Colonne Acquéreur", "Cliquez", Type:=8)
 else  Exit Sub
End If
 If rep = plage.Find(rep) Then  'Controle colonne de saisie
    Call TRIA
    Else: MsgBox "Recommencer ! "
rep = Application.InputBox("Cliquer un Nom dans la Colonne Acquéreur", "Cliquez", Type:=8)                
End If
End Sub

Merci et si je peux améliorer ma communication sur ce site je suis preneur.

[EBRAG]

Bonjour !

à part ça, la vie est belle ?

Pas d'autres explications à fournir ?

On peut rendre service, mais il faut un minimum de biscuits !

[Marc-L]

Bonjour, bonjour !

conformément aux règles de ce forum, commencer donc par les lire ‼

Cela aidera aussi à corriger le post initial en vue d'une présentation digne de ce nom, claire & exhaustive …

Voilà, voilà !

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[clementmarcotte]

Quand je pense que l'on peut utiliser un RefEdit pour sélectionner une plage ou une cellule.