Suppression d'une chaîne de caractèresRésolu

Question

Bonjour à tous,

J'ai l'application suivante sous Excel :
Private Sub CommandButton1_Click()
Dim c As Range

For Each c In ActiveSheet.Cells
    If c.Value = "salut" Then
        c.Delete
    End If
Next c
End Sub

Et les cellules suivantes dans ma feuille Excel :
A1 : salut
A2 : salut toi
A3 : salut 123456
A4 : salut salut
A5 : salut
A6 : bonjour

Lorsque je clique sur le bouton de commande "CommandButton1", il y a suppression des cellules A1 et A5 (normal quoi )

J'aimerai savoir comment supprimer toutes les données contenant la chaîne de caractères "salut", c'est à dire que lorsque je clique sur le bouton de commande "CommandButton1", toutes les cellules où figure "salut" soit supprimées (dans mon exemple toutes les cellules seraient supprimées sauf bonjour)

Merci beaucoup !

malhivertman1 · Accepted Answer

If instr(1, c.Value, "salut") > 0 Then
        c.Delete
    End If

asecher · Answer

Tobi26,

Tu es sensé répondre et valider la réponse si elle te convient.

cordialement,

Alain 31

malhivertman1 · Answer

Si je pouvais la valider moi-même je l'orais deja fait. Il prend sa réponse et hop y s'en va comme un voleur  
Puis le code que je lui ai donné rempli exactement ce qu'il veut donc aucune raison que ca ne lui convienne pas.

enfin bon......

crenaud76 · Answer

Laisser à Tobi26 le temps de tester le bout de code qu'on lui a donné avant de valdier la réponse !

mortalino · Answer

Il est revenu à 10h51 sur CS, il a eu tout le temps de le faire.
S'il n'a pas mis d'autres Post, c'est que la réponse lui convient !
Ce qui est regretable c'est que certaines personnes viennent juste pour un bout de code et Ciao..

En plus le réglement n'est certainement pas lu.

Tobi26 · Answer

Je tiens à vous dire que ce n'est pas la première fois que je poste sur c forum, et que j'ai toujours accepté les réponses lorsqu'elles me convenaient.

Or j'ai eu un problème de connection ce matin (car je suis en entreprise actuellement et le réseau ne fonctionne pas toujours bien), et je n'ai pas pu valider la solution à mon problème.

Je valide donc la réponse comme je l'aurais fait ce matin si j'avais pu.

Toutes mes excuses pour ce retard.

Sachez par ailleur que j'apprécie beaucoup la rapidité de réponse des membres de ce forum et que je ne risquerais pas de ne pas les remercier lorsqu'ils me viennent en aide.

crenaud76 · Answer

Voila ! Tout va bien !!

mortalino · Answer

Désolé, des fois on est des chiens car on en voit tellement...
On a parlé (écrit) trop vite.

Mais faute avouée = faute pardonnée

Bon WE à tous

Tobi26 · Answer

Je suis tout à fait d'accord 

Sans rancunes ;-)

++

crenaud76 · Answer

Le rève d'un admin CS !!! Une situation explosive entre 3 membres qui fini par un envoi de fleur et de gros bisous !!!!

Suppression d'une chaîne de caractères

10 réponses

Discussions similaires