Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Remplacement de toutes les cellules concernées

Remplacement de toutes les cellules concernées

1 réponse
Avatar
Didier Novarin
Bonjour
J'avance petit à petit :
Je voudrais que cela fonctionnât avec toutes les cellules et non une seule
je vous remercie
Didier

Private Sub CommandButton1_Click()
VarNum = TextBox1
X = Evaluate("INDEX(les_codes,MATCH(" & VarNum & ",Les_nums,0))")
Range("les_codes").Replace What:=X, replacement:=TextBox2.Value
Unload Me
End Sub
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
DJ9B
Bonjour Didier !
Reste dans le même fil de discussion :o( !
Une solution ce trouve dans ton 1er fil.

--

www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" a écrit dans le message de
news:
Bonjour
J'avance petit à petit :
Je voudrais que cela fonctionnât avec toutes les cellules et non une seule
je vous remercie
Didier

Private Sub CommandButton1_Click()
VarNum = TextBox1
X = Evaluate("INDEX(les_codes,MATCH(" & VarNum & ",Les_nums,0))")
Range("les_codes").Replace What:=X, replacement:=TextBox2.Value
Unload Me
End Sub