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 des cellules à droite

Remplacement des cellules à droite

11 réponses
Avatar
Didier Novarin
Bonjour
J'ai un tableau avec 2 colonnes A et B page "Test"
avec dans la cellule ex : A6 "toto" et B6 "tata"
j'ai un userfrom avec 2 textbox
je souhaite remplacer les valeurs toto et tata qui se trouve dans la feuille
"Travail"
à chaque fois qu'il y a "toto" à droite, il y a "tata"à gauche
par les valeurs des textbox
je sais que ce n'est pas évident à comprendre ;-)
Merci
Didier
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
1 2
Avatar
DJ9B
Merci beaucoup !

--

www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" a écrit dans le message de
news:
Ton site est vraiment balèze, très grande qualité !
Didier

"DJ9B" <Inlè a écrit dans le message de news:

Merci Didier,
mais il y a erreur sur la personne je suis loin d'être un génie :o) !


--

www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" a écrit dans le message de
news:

Bonjour DJ9B
Mais tu es un génie, merci beaucoup
c'est très clair et très sympa de ta part
Didier

"DJ9B" <Inlè a écrit dans le message de news:

Bonjour Didier !
tu nous dis :
J'ai un tableau avec 2 colonnes A et B page "Test"
avec dans la cellule ex : A6 "toto" et B6 "tata"
donc "toto" c'est la valeur à chercher, si tu veux tu peux la


remplacer




par
n'importe quoi.
Imaginons que la valeur soit issue d'un textbox3 par exemple, ça
donne




:

Private Sub CommandButton1_Click()
Dim i As Integer
Dim Achercher as String
Dim cellule As Range

Sheets("test").Select
Achercher = Textbox3.Value
i = Range("A65536").End(xlUp).Row
For Each cellule In Range("A1:A" & i)
If cellule = Achercher Then
cellule = TextBox1.Value
cellule.Offset(0, 1) = TextBox2.Value
End If
Next
End Sub


--

www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" a écrit dans le message
de




news:
Bonsoir DJ9B
merci beaucoup pour ton aide, mais je ne comprends pas le "toto"
Didier

"DJ9B" <Inlè a écrit dans le message de news:

Bonjour Didier !
comme ceci ( a adapter ) :

Private Sub CommandButton1_Click()
Dim i As Integer
Dim cellule As Range

Sheets("test").Select
i = Range("A65536").End(xlUp).Row
For Each cellule In Range("A1:A" & i)
If cellule = "toto" Then
cellule = TextBox1.Value
cellule.Offset(0, 1) = TextBox2.Value
End If
Next

End Sub

--

www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" a écrit dans le
message






de
news:%
Bonjour
J'ai un tableau avec 2 colonnes A et B page "Test"
avec dans la cellule ex : A6 "toto" et B6 "tata"
j'ai un userfrom avec 2 textbox
je souhaite remplacer les valeurs toto et tata qui se trouve dans
la
feuille

"Travail"
à chaque fois qu'il y a "toto" à droite, il y a "tata"à gauche
par les valeurs des textbox
je sais que ce n'est pas évident à comprendre ;-)
Merci
Didier




























1 2