Cellule "a1 " le mettre dans la cellule "b1"

Salut Stef,

Une solution,

Dim I as long
Dim Coordligne as long

Coordligne¬tivesheet.Range("65536").End(xlup).row ' Détermine le nombre
de lignes à vérifier

For i = 1 to Coordligne

If Range("A" & i).Value <> "" Then
Range("B" & i).Value = Range("A" & i).Value
End if

Next

Cordialement

"stef" <stef@tiscali.fr> a écrit dans le message de news:
cnofhq$971$1@news.tiscali.fr...

bonjour a tous

j'ai une vba qui me permet de tenir a jour les courriers que j'envoi a
l'aide d'user box mais mon soucis est le suivant comment faire pour que si
il y a quelque chose dans la cellule "a1 " le mettre dans la cellule "b1"
et

ainsi de suite.
est ce que quelq'un sait comment faire

merci.

merci de ton aide

je vais etre un peux chiant mais je ne sait pas comment l'apliquer

Private Sub CommandButton1_Click()
Worksheets("feuil1").Range("a1") = ComboBox1
End Sub


"E KERGRESSE" <ASUPPRIMEReric.kergresse@wanadoo.fr> a écrit dans le message
de news:Otm8ti3zEHA.3076@TK2MSFTNGP10.phx.gbl...

Salut Stef,

Une solution,

Dim I as long
Dim Coordligne as long

Coordligne¬tivesheet.Range("65536").End(xlup).row ' Détermine le nombre
de lignes à vérifier

For i = 1 to Coordligne

If Range("A" & i).Value <> "" Then
Range("B" & i).Value = Range("A" & i).Value
End if

Next

Cordialement

"stef" <stef@tiscali.fr> a écrit dans le message de news:
cnofhq$971$1@news.tiscali.fr...

bonjour a tous

j'ai une vba qui me permet de tenir a jour les courriers que j'envoi a
l'aide d'user box mais mon soucis est le suivant comment faire pour que
si

il y a quelque chose dans la cellule "a1 " le mettre dans la cellule
"b1"

et

ainsi de suite.
est ce que quelq'un sait comment faire

merci.

Salut Stef,

Attention, je me suis aperçu que j'avais fait une erreur, il faut noter
("A65536") au lieu de ("65536").

Soit la macro suivante dans un module standard :

Sub CopierContenuColonneA()

Dim I as long
Dim Coordligne as long

Coordligne¬tivesheet.Range("A65536").End(xlup).row ' Détermine le nombre
de lignes à vérifier

For i = 1 to Coordligne
If Range("A" & i).Value <> "" Then
Range("B" & i).Value = Range("A" & i).Value
End if
Next

End sub


Dans le module de la feuille où ta colonne A doit être répétée

Private Sub CommandButton1_Click()

Call CopierContenuColonneA

End Sub

Ou bien, directement dans ton module de feuille

Private Sub CommandButton1_Click()

Dim I as long
Dim Coordligne as long

Coordligne¬tivesheet.Range("A65536").End(xlup).row ' Détermine le nombre
de lignes à vérifier

For i = 1 to Coordligne
If Range("A" & i).Value <> "" Then
Range("B" & i).Value = Range("A" & i).Value
End if
Next

End Sub

Cordialement.



"stef" <stef@tiscali.fr> a écrit dans le message de news:
cnqtdr$r8n$1@news.tiscali.fr...

merci de ton aide

je vais etre un peux chiant mais je ne sait pas comment l'apliquer

Private Sub CommandButton1_Click()
Worksheets("feuil1").Range("a1") = ComboBox1
End Sub


"E KERGRESSE" <ASUPPRIMEReric.kergresse@wanadoo.fr> a écrit dans le
message

de news:Otm8ti3zEHA.3076@TK2MSFTNGP10.phx.gbl...

Salut Stef,

Une solution,

Dim I as long
Dim Coordligne as long

Coordligne¬tivesheet.Range("65536").End(xlup).row ' Détermine le
nombre

de lignes à vérifier

For i = 1 to Coordligne

If Range("A" & i).Value <> "" Then
Range("B" & i).Value = Range("A" & i).Value
End if

Next

Cordialement

"stef" <stef@tiscali.fr> a écrit dans le message de news:
cnofhq$971$1@news.tiscali.fr...

bonjour a tous

j'ai une vba qui me permet de tenir a jour les courriers que j'envoi
a

l'aide d'user box mais mon soucis est le suivant comment faire pour
que

si

il y a quelque chose dans la cellule "a1 " le mettre dans la cellule
"b1"

et

ainsi de suite.
est ce que quelq'un sait comment faire

merci.