Suppression d'une cellule en fonction d'un certain texte dans une autre...

  • Initiateur de la discussion Initiateur de la discussion soif77
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

soif77

XLDnaute Nouveau
Bonjour le forum !

Comme d'habitude, après un cetain nombres de recherches je me tourne vers vous afin de m'apporter de l'aide... Je suis en train de concevoir une application sous excel pour de la gestion de commandes.

Mon problème est qu'à partir d'une cellule, contenant n'importe quel texte, cela me recherche dans une liste si ce mot est affiché. Je tiens à préciser que le texte des 2 cellules ne sont pas identiques. Pour exemple : A1 = Pommes Royales ; A2 = Bananes blabla ; A3 = Poires... et B1 = Pommes

A partir de B1 je voudrais qu'il recherche de A1:A3 si ce mot y figure !

Je ne sais pas si je suis assez clair, en tout cas votre aide serait la bienvenue !

Merci beaucoup,

François
 
Re : Suppression d'une cellule en fonction d'un certain texte dans une autre...

Bonjour François,

peut être avec la méthode "find" :

Code:
Dim x As Range
Set x = Range("A1:A3").Find(Range("B1").Value, , xlValues, xlPart, , , False)
If Not x Is Nothing Then MsgBox "trouvé dans la cellule " & x.Address(0, 0)

bonne journée
@+
 
Re : Suppression d'une cellule en fonction d'un certain texte dans une autre...

Pierrot,

je viens à l'instant d'essayer, c'est nickel ça marche super... par contre... pourrais tu me dire comment je peux faire pour, au lieu d'afficher un msgbox, il me surligne ou peu importe, la cellule qui correspond. Non pas "trouvé en A1" mais mettre en evidence la cellule... je suis pas un as sur vba, d'autant plus que je viens de m y remettre dedans... merci beaucoup
 
Re : Suppression d'une cellule en fonction d'un certain texte dans une autre...

Bonjour François,

modifie le code comme suit :

Code:
Dim x As Range
Set x = Range("A1:A3").Find(Range("B1").Value, , xlValues, xlPart, , , False)
If Not x Is Nothing Then x.Interior.ColorIndex = 3

bonne journée
@+
 
Re : Suppression d'une cellule en fonction d'un certain texte dans une autre...

merci ca marche parfaitement...en revanche (parce qu il y a toujours un "mais" lol), si ce n'est pas trop te demander, car je rame énormément, ma liste de produit peu éventuellement afficher plusieurs produits de la même gamme (apple royal et apple golden, par exemple). je pense qu un while serait el bienvenue la dedans mais alors pour le placer quelque part j avoue ne pas trouver. Voila, ca sera la derniere question a ce sujet lol ! merci a toi et bonne journée

a+
francois
 
Re : Suppression d'une cellule en fonction d'un certain texte dans une autre...

Re

essaye peut être comme ceci, non testé...

Code:
Sub test()
Dim x As Range, a As String
With Range("A1:A3")
    Set x = .Find(Range("B1").Value, , xlValues, xlPart, , , False)
    If Not x Is Nothing Then
        a = x.Address
        Do
            x.Interior.ColorIndex = 3
            Set x = .FindNext(x)
        Loop While Not x Is Nothing And x.Address <> a
    End If
End With
End Sub

@+
 
Re : Suppression d'une cellule en fonction d'un certain texte dans une autre...

ca ne marche pas helas et je ne pense pas pouvoir le modifier, vu mes capacités antérieures... si tu as une solution elle est la bienvenue sinon merci pour tout
 
Re : Suppression d'une cellule en fonction d'un certain texte dans une autre...

Re,

comprends pas, je viens de tester à priori ce code fonctionne chez moi.... as tu bien modifié la plage A1 : A3 par la plage où tu veux effectuer ta recherche.. A noter que ce code s'applique sur la feuille active et est à utiliser dans un module standard...
 
Re : Suppression d'une cellule en fonction d'un certain texte dans une autre...

c'est parfait ! en fait comme un idiot j avais oublié d'étendre plus bas alors que ma valeur en B1 etait plus basse que A3, donc forcement il faisait rien. merci enormement pierrot !

a bientot
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour