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
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
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
Bonjour
Avec quelque chose comme ceci (à adapter) :
Cells.Replace What:="toto", Replacement:=Textbox1, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse
Cordialement
Pascal
"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
Bonjour
Avec quelque chose comme ceci (à adapter) :
Cells.Replace What:="toto", Replacement:=Textbox1, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse
Cordialement
Pascal
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23EGQNjDwFHA.1032@TK2MSFTNGP12.phx.gbl...
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
Bonjour
Avec quelque chose comme ceci (à adapter) :
Cells.Replace What:="toto", Replacement:=Textbox1, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse
Cordialement
Pascal
"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
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
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
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
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
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
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:%23EGQNjDwFHA.1032@TK2MSFTNGP12.phx.gbl...
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
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
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
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
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
Bonsoir DJ9B
merci beaucoup pour ton aide, mais je ne comprends pas le "toto"
Didier
"DJ9B" <Inlève_Cha_dj9b@free.fr> a écrit dans le message de news:
uDG4EdGwFHA.612@TK2MSFTNGP10.phx.gbl...
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
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:%23EGQNjDwFHA.1032@TK2MSFTNGP12.phx.gbl...
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
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
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
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
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
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:uriO3GHwFHA.3688@tk2msftngp13.phx.gbl...
Bonsoir DJ9B
merci beaucoup pour ton aide, mais je ne comprends pas le "toto"
Didier
"DJ9B" <Inlève_Cha_dj9b@free.fr> a écrit dans le message de news:
uDG4EdGwFHA.612@TK2MSFTNGP10.phx.gbl...
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
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:%23EGQNjDwFHA.1032@TK2MSFTNGP12.phx.gbl...
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
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
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
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ève_Cha_dj9b@free.fr> a écrit dans le message de news:
OpmUQfIwFHA.552@TK2MSFTNGP12.phx.gbl...
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
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:uriO3GHwFHA.3688@tk2msftngp13.phx.gbl...
Bonsoir DJ9B
merci beaucoup pour ton aide, mais je ne comprends pas le "toto"
Didier
"DJ9B" <Inlève_Cha_dj9b@free.fr> a écrit dans le message de news:
uDG4EdGwFHA.612@TK2MSFTNGP10.phx.gbl...
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
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message
de
news:%23EGQNjDwFHA.1032@TK2MSFTNGP12.phx.gbl...
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
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
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
denews:%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
Merci Didier,
mais il y a erreur sur la personne je suis loin d'être un génie :o) !
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:uR8mQkNwFHA.2924@TK2MSFTNGP15.phx.gbl...
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ève_Cha_dj9b@free.fr> a écrit dans le message de news:
OpmUQfIwFHA.552@TK2MSFTNGP12.phx.gbl...
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
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:uriO3GHwFHA.3688@tk2msftngp13.phx.gbl...
Bonsoir DJ9B
merci beaucoup pour ton aide, mais je ne comprends pas le "toto"
Didier
"DJ9B" <Inlève_Cha_dj9b@free.fr> a écrit dans le message de news:
uDG4EdGwFHA.612@TK2MSFTNGP10.phx.gbl...
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
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message
de
news:%23EGQNjDwFHA.1032@TK2MSFTNGP12.phx.gbl...
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
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
denews:%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
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
denews:%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
Merci Didier,
mais il y a erreur sur la personne je suis loin d'être un génie :o) !
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:uR8mQkNwFHA.2924@TK2MSFTNGP15.phx.gbl...
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ève_Cha_dj9b@free.fr> a écrit dans le message de news:
OpmUQfIwFHA.552@TK2MSFTNGP12.phx.gbl...
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
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:uriO3GHwFHA.3688@tk2msftngp13.phx.gbl...
Bonsoir DJ9B
merci beaucoup pour ton aide, mais je ne comprends pas le "toto"
Didier
"DJ9B" <Inlève_Cha_dj9b@free.fr> a écrit dans le message de news:
uDG4EdGwFHA.612@TK2MSFTNGP10.phx.gbl...
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
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message
de
news:%23EGQNjDwFHA.1032@TK2MSFTNGP12.phx.gbl...
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
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
denews:%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
Et modeste avec ça ;-))
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
denews:%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
Et modeste avec ça ;-))
Didier
"DJ9B" <Inlève_Cha_dj9b@free.fr> a écrit dans le message de news:
Oyk6msNwFHA.2924@TK2MSFTNGP15.phx.gbl...
Merci Didier,
mais il y a erreur sur la personne je suis loin d'être un génie :o) !
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:uR8mQkNwFHA.2924@TK2MSFTNGP15.phx.gbl...
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ève_Cha_dj9b@free.fr> a écrit dans le message de news:
OpmUQfIwFHA.552@TK2MSFTNGP12.phx.gbl...
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
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message
de
news:uriO3GHwFHA.3688@tk2msftngp13.phx.gbl...
Bonsoir DJ9B
merci beaucoup pour ton aide, mais je ne comprends pas le "toto"
Didier
"DJ9B" <Inlève_Cha_dj9b@free.fr> a écrit dans le message de news:
uDG4EdGwFHA.612@TK2MSFTNGP10.phx.gbl...
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
--
dj9b@free.fr
www.dj9b.fr.st
et maintenant aussi :
http://dj9b.free.fr
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le
message
de
news:%23EGQNjDwFHA.1032@TK2MSFTNGP12.phx.gbl...
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
Et modeste avec ça ;-))
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
denews:%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
