VBA Excel Supprimer cellule dans une colonne
Résolu
pool101
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
Mike-31 Messages postés 18407 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18407 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'essais de supprimer le contenu d'une cellule dans ma colonne A mais je ne réussi pas à le trouver et le supprimer. J'ai fais plusieurs test mais je supprime juste l'entré dans la cellule A2 qui est pas celle que j'avais demander.... Est-ce qu'il y a quelqu'un qui peut m'aider....
voici mon code. Merci d'avance.
Private Sub FB_Supprimer_Click()
Dim Recherche As String
Dim celluletrouvee As Range
Dim ligne As Integer
Set celluletrouvee = Range("A1:A150").Find(Recherche, LookIn:=xlValues, lookat:=xlWhole)
If (FC_Nom.Value <> "") Then
If celluletrouvee Is Nothing Then
MsgBox ("Pas Trouvé")
Else
ligne = celluletrouvee.Row
celluletrouvee.Select
ActiveCell.ClearContents
End If
Else
MsgBox "Ça prend un nom d'un pooleur"
End If
End Sub
J'essais de supprimer le contenu d'une cellule dans ma colonne A mais je ne réussi pas à le trouver et le supprimer. J'ai fais plusieurs test mais je supprime juste l'entré dans la cellule A2 qui est pas celle que j'avais demander.... Est-ce qu'il y a quelqu'un qui peut m'aider....
voici mon code. Merci d'avance.
Private Sub FB_Supprimer_Click()
Dim Recherche As String
Dim celluletrouvee As Range
Dim ligne As Integer
Set celluletrouvee = Range("A1:A150").Find(Recherche, LookIn:=xlValues, lookat:=xlWhole)
If (FC_Nom.Value <> "") Then
If celluletrouvee Is Nothing Then
MsgBox ("Pas Trouvé")
Else
ligne = celluletrouvee.Row
celluletrouvee.Select
ActiveCell.ClearContents
End If
Else
MsgBox "Ça prend un nom d'un pooleur"
End If
End Sub
A voir également:
- Supprimer cellule vba
- Supprimer rond bleu whatsapp - Guide
- Supprimer page word - Guide
- Excel compter cellule couleur sans vba - Guide
- Supprimer pub youtube - Accueil - Streaming
- Fichier impossible à supprimer - Guide
