Salut =E0 TOUS,
Je d=E9bute mais voila ce que je cherche =E0 faire avec une macro
distribuer la cellule A1 avec la CELLULE A3:A100 =E0 avoir en B le
r=E9sultat suivant
Je vous repr=E8sente le tableur et les donn=E9es
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 a écrit dans le message de news:
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.
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
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 a écrit dans le message de news:
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
isabelle
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
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
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
mozart95
On 1 mar, 17:12, isabelle wrote:
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- 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: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.
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- 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.
mozart95
On 1 mar, 17:09, "Daniel" 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 a écrit dans le message de news:
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
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
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 a écrit dans le message de news:
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
Daniel
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
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
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