Discussion :

[graphikris]

Bonjour,

Je cherche le moyen de supprimer le contenu de certaines cellules sur une ligne en fonction d'un nom prénom.

En Colonne A, j'ai des Noms Prénoms et dans les autre colonnes des données.
Dans ma macro, je demande à l'opérateur qui décide de supprimer ces données, de saisir le "nom prenom" concerné puis en fonction de sa réponse, la macro va chercher cette identit et va ensuite vides les données dans les cellules concernées.

Code :

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

1
2
3
4
5
6
7
8
9
    Dim Identite As String
 
    Identite = InputBox("Veuillez saisir l'identité à supprimer :" & Chr$(13) & Chr$(13) & "Exemple :" & Chr$(13) & "NOM Prénom" & Chr$(13) & "Exemple : Camus Christophe" & Chr$(13) & Chr$(13) & Chr$(13) & "ATTENTION : la saisie est obligatoire.", "identite")
 
    Sheets("Feuil1").Select
    Range("A63").Select
    Selection.ClearContents
    Range("B63").Select
    Selection.ClearContents

Dans mon code, Excel va donc supprimer les données de la cellule A63 et B63 car l'identité a supprimer est en ligne 63.
Que dois inscrire à la place de A63 et B63 ?
J'ai essayé de mettre identite mais çà ne marche pas.

Cordialement,
Graphikris.

[casefayere]

Bonsoir,
un début de piste :

Code :

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

1
2
3
4
5
6
7
8
Dim Identite As String, dl As Long, Ch As Range, Plage As Range
dl = Range("A" & Rows.Count).End(xlUp).Row 'on recherche la dernière ligne renseignée
Set Plage = Range("A2:A" & dl) 'si les données commencent en A2, on définit la page de recherche
Identite = InputBox("Veuillez saisir l'identité à supprimer :" & Chr$(13) & Chr$(13) & "Exemple :" & Chr$(13) & "NOM Prénom" & Chr$(13) & "Exemple : Camus Christophe" & Chr$(13) & Chr$(13) & Chr$(13) & "ATTENTION : la saisie est obligatoire.", "identite")
Set Ch = Plage.Find(Identite)
If Not Ch Is Nothing Then
  Range(Ch, Ch(1, 2)).ClearContents
End If