VBA Excel Supprimer cellule dans une colonne Résolu

Question

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

Mike-31 · Accepted Answer

Salut,

Que veux tu supprimer comme valeur ou formule, je pense qu'il est possible d'écrire un code plus court si tu nous en disais plus sur le contenu de la cellule à effacer

Info · Answer

Bonjour,

Effectuer une affectation à la variable [ Recherche ].

Chez moi, ça fonction ssi Recherche est initialiser.

Info

pool101 · Answer

Merci mais je ne comprend pas trop.... Pourtant Recheche est défini??

pool101 · Answer

Salut,

C'est juste une valeur que je veux supprimer, c'est une liste de personne qui commence par le nom de famille, prénom et téléphone dans la même cellule et je veux supprimer l'information de la cellule au complète se trouvant dans la cellule en recherchant le nom de famile.... J'espère que sa va aider.

a+

Mike-31 · Answer

Re,

Avec ces explications on y voit de suite plus clair, et je crois comprendre, dans une cellule tu as plusieurs explications qui commencent par le NOM puis Prénom etc ...
et tu veux en saisissant simplement le début (le Nom) effacer cette cellule. Peut il y avoir plusieurs débuts de contenu de cellules qui commencent par le même Nom

pool101 · Answer

C'est ça, il y a plusieurs informations dans la même cellule.
Oui, il y a plusieurs nom de famille identique.

Mike-31 · Answer

et veux tu effacer toutes les cellules contenant ce Nom

Info · Answer

Bonjour,

Initialiser Recherche :

Recherche = "pool1018*"

Cdt

Info

pool101 · Answer

Non je ne veux pas essayé toute les cellules....

Mike-31

pool101 · Answer

Salut Cdt,

Je ne peux pas utiliser cette méthode là parce que ma recherche de la cellule peut-êtres différente à chauqe fois.

Mike-31 · Answer

Re, 

je ne comprends pas très bien, si on dit à Excel d'effacer les cellules contenant un nom, il va tout supprimer ou le premier rencontré ou encore le dernier mais si tu dois choisir une cellule, Excel ne peut deviner ou j'ai mal compris tes attentes. 
Pourquoi ne pas coloriser les cellules contenant le nom prédéfini et ensuite tu éffaces le nom choisi. Ou essayes t'expliquer différemment pour y voir plus clair 
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

pool101 · Answer

Excel ne peut pas nous donner le choix de faire... Il trouve trois nom pareille et il me donne le choix d'effacer lui que je veux.... ou de selectionner et par la suite l'effacer. Je ne sais pas si c'est plus claire se que je veux.

Mike-31 · Answer

Re,

essaye de mettre la plage en surbrillance Mise en forme conditionnelle

la formule est 


=NB.SI(A2;"*titi*")

en sélectionnant le nom avec une liste déroulante par exemple en C1 

=NB.SI(A2;"*"&$C$1&"*") 

et tu choisis une couleur reste plus qu' a éffacer le nom voulu

il est possible de compléter la formule si C1 est vide pas de couleurs

=SI($C$1<>"";NB.SI(A2;"*"&$C$1&"*"))

je regarde ce qui peut être fait en VBA

Mike-31 · Answer

Re, 

Voilà une proposition VBA rapidement faite 

Les codes 

Private Sub ComboBox1_Change() 
    Cells.Find(What:=ComboBox1, After:=ActiveCell, LookIn:=xlValues, LookAt _ 
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
        False, SearchFormat:=False).Activate 
End Sub 

Private Sub CommandButton1_Click() 
Unload Me 
ActiveCell.ClearContents 
End Sub 

un exemple, colonne A sur la plage jaune ajouter des infos et tester.
Dans le Combobox de l'userform dès que l'on commence à saisir un mot la liste s'affine, ou sélectionner le ou les mots, la cellule correspondante devient active reste plus qu'à effacer avec le bouton. je te conseille d'ajouter une msgbox pour confirmer l'effacement, si tu as besoin fais signe

https://www.cjoint.com/?0cwvX7PRAM  

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

pool101 · Answer

Merci Mike-31

Je l'ai réussi à l'adapter à mon programme mais quand je clic sur la combobox, je n'ai pas la liste déroulante, j'ai essayé d'affecter ma combobox mais il ne trouve rien.

merci encore, très gentil de prendre du temps pour aider.

Mike-31 · Answer

Re,

Je pense que tu as créé une userform avec un Combobox, si c'est cela, vas dans le Visual, clic sur l'userform et clic sur le combobox pour l'activer/dans les propriétés recherches  RowSource dans la zone de saisie juste en face défini la plage de la liste ex A1:A20

ou tu commences par nommer la liste ex Titi et dans RowSource saisis Titi

pool101 · Answer

Merci encore Mike-31, tout fonctionne maintenant.

Mike-31 · Answer

Content de t'avoir aidé, n'oublie pas de mettre le statut de la discussion en résolu

VBA Excel Supprimer cellule dans une colonne

18 réponses

Votre réponse

Discussions similaires