distribution d'une cellule avec 1 colonne

Bonjour.

Sub test()
Dim c As Range
For Each c In Range("B3:B100")
c = [A1] & c.Offset(0, -1).Value
Next c
End Sub

Cordialement.
Daniel
<pedro.figueras@free.fr> a écrit dans le message de news:
1172763969.057005.31540@h3g2000cwc.googlegroups.com...
Salut à TOUS,
Je débute mais voila ce que je cherche à faire avec une macro
distribuer la cellule A1 avec la CELLULE A3:A100 à avoir en B le
résultat suivant
Je vous reprèsente le tableur et les données

A B
1 V
2
3 1 V1
4 2 V2
5 3 V3
6 4 V4


SI quelqu'un pouvais m'aider

je le remercie par avance

:-) bonne journée à tous

bonjour Pedro,

Sub Macro1()
Range("A4:A103").FormulaLocal = "£+1"
Range("B3").FormulaLocal = "=$A$1&A3"
Range("B3").AutoFill Destination:=Range("B3:B103")
End Sub

isabelle

Salut à TOUS,
Je débute mais voila ce que je cherche à faire avec une macro
distribuer la cellule A1 avec la CELLULE A3:A100 à avoir en B le
résultat suivant
Je vous reprèsente le tableur et les données

A B
1 V
2
3 1 V1
4 2 V2
5 3 V3
6 4 V4


SI quelqu'un pouvais m'aider

je le remercie par avance

:-) bonne journée à tous

On 1 mar, 17:12, isabelle <i@v> wrote:

bonjour Pedro,

Sub Macro1()
Range("A4:A103").FormulaLocal = "=A3+1"
Range("B3").FormulaLocal = "=$A$1&A3"
Range("B3").AutoFill Destination:=Range("B3:B103")
End Sub

isabelle

Salut à TOUS,
Je débute mais voila ce que je cherche à faire avec une macro
distribuer la cellule A1 avec la CELLULE A3:A100 à avoir en B le
résultat suivant
Je vous reprèsente le tableur et les données

A B
1 V
2
3 1 V1
4 2 V2
5 3 V3
6 4 V4

SI quelqu'un pouvais m'aider

je le remercie par avance

:-) bonne journée à tous- Masquer le texte des messages précéde nts -

- Afficher le texte des messages précédents -

Merci ecore pour la réponse, j'ai testé mais j'ai un soucis.
Comment gérer les cellules vides? exemple d'illustration imginos que
dans la cellule A7 et A8 cellule vide donc en B7 et B8 rien mais si on
a en A9 5 j'aimerais avoir en B9 V5? avec ton code il concatène les
cellule pour combler les cellules vides.

On 1 mar, 17:09, "Daniel" <dZZZcolarde...@free.fr> wrote:

Bonjour.

Sub test()
Dim c As Range
For Each c In Range("B3:B100")
c = [A1] & c.Offset(0, -1).Value
Next c
End Sub

Cordialement.
Daniel
<pedro.figue...@free.fr> a écrit dans le message de news:
1172763969.057005.31...@h3g2000cwc.googlegroups.com...
Salut à TOUS,
Je débute mais voila ce que je cherche à faire avec une macro
distribuer la cellule A1 avec la CELLULE A3:A100 à avoir en B le
résultat suivant
Je vous reprèsente le tableur et les données

A B
1 V
2
3 1 V1
4 2 V2
5 3 V3
6 4 V4

SI quelqu'un pouvais m'aider

je le remercie par avance

:-) bonne journée à tous

Merci encore pour la réponse, j'ai testé mais j'ai un soucis.
Comment gérer les cellules vides? exemple d'illustration imaginons
que
dans la cellule A7 et A8 cellule vide donc en B7 et B8 rien mais si
on
a en A9 5 j'aimerais avoir en B9 V5? avec ton code il affiche en B7 et
B8 la lettre V comment gerer la condition si cellule vide pas de
valeur dans colonne B

merci encore

Bonjour.
Essaie :

Sub test()
Dim c As Range
For Each c In Range("B3:B100")
If c.Offset(0, -1).Value <> "" Then
c = [A1] & c.Offset(0, -1).Value
End If
Next c
End Sub

Cordialement.
Daniel

Merci encore pour la réponse, j'ai testé mais j'ai un soucis.
Comment gérer les cellules vides? exemple d'illustration imaginons
que
dans la cellule A7 et A8 cellule vide donc en B7 et B8 rien mais si
on
a en A9 5 j'aimerais avoir en B9 V5? avec ton code il affiche en B7 et
B8 la lettre V comment gerer la condition si cellule vide pas de
valeur dans colonne B

merci encore