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
michdenis
Bonjour Lauxeti,
Essaie ceci et adapte le nom de la feuille.
'--------------------------- Sub CopierFormule()
With Worksheets("Feuil1") ' à adapter Set Rg = .Range("C2:C999") End With With Rg Rg.FormulaLocal = "=" & Rg(1).Offset(, -2).Address(0, 0) & _ " & "" "" & " & Rg(1).Offset(, -1).Address(0, 0) & "" End With End Sub '---------------------------
Salutations!
"lauxeti" a écrit dans le message de news: Bonsoir,
Je souhaiterais copier par macro par exemple
A B C D 1 a = "C1"&" "&"D1" m n 2 b a b 3 c z e ... 999 p x y
B2 jusqu'à B999 pour obtenir
A B C D 1 a = "C1"&" "&"D1" m n 2 b = "C2"&" "&"D2" a b 3 c = "C3"&" "&"D3" z e ... 999 p = "C999"&" "&"D999" x y
Merci pour vos solutions
YB
Bonjour Lauxeti,
Essaie ceci et adapte le nom de la feuille.
'---------------------------
Sub CopierFormule()
With Worksheets("Feuil1") ' à adapter
Set Rg = .Range("C2:C999")
End With
With Rg
Rg.FormulaLocal = "=" & Rg(1).Offset(, -2).Address(0, 0) & _
" & "" "" & " & Rg(1).Offset(, -1).Address(0, 0) & ""
End With
End Sub
'---------------------------
Salutations!
"lauxeti" <ybrunet@wanadoo.fr> a écrit dans le message de news: 1138131746.391841.57760@g44g2000cwa.googlegroups.com...
Bonsoir,
Je souhaiterais copier par macro par exemple
A B
C D
1 a = "C1"&" "&"D1"
m n
2 b
a b
3 c
z e
...
999 p
x y
B2 jusqu'à B999 pour obtenir
A B
C D
1 a = "C1"&" "&"D1"
m n
2 b = "C2"&" "&"D2"
a b
3 c = "C3"&" "&"D3"
z e
...
999 p = "C999"&" "&"D999" x
y
With Worksheets("Feuil1") ' à adapter Set Rg = .Range("C2:C999") End With With Rg Rg.FormulaLocal = "=" & Rg(1).Offset(, -2).Address(0, 0) & _ " & "" "" & " & Rg(1).Offset(, -1).Address(0, 0) & "" End With End Sub '---------------------------
Salutations!
"lauxeti" a écrit dans le message de news: Bonsoir,
Je souhaiterais copier par macro par exemple
A B C D 1 a = "C1"&" "&"D1" m n 2 b a b 3 c z e ... 999 p x y
B2 jusqu'à B999 pour obtenir
A B C D 1 a = "C1"&" "&"D1" m n 2 b = "C2"&" "&"D2" a b 3 c = "C3"&" "&"D3" z e ... 999 p = "C999"&" "&"D999" x y
Merci pour vos solutions
YB
michdenis
Peut etre recherches-tu ceci :
Sub CopierFormule()
With Worksheets("Feuil1") Set Rg = .Range("B2:B999") End With Rg.FormulaLocal = "=" & """" & _ Rg(1).Offset(, 1).Address(0, 0) & """" & _ " & "" "" & " & """" & Rg(1). _ Offset(, 2).Address(0, 0) & """" & "" End Sub
Salutations!
"lauxeti" a écrit dans le message de news: Bonsoir,
Je souhaiterais copier par macro par exemple
A B C D 1 a = "C1"&" "&"D1" m n 2 b a b 3 c z e ... 999 p x y
B2 jusqu'à B999 pour obtenir
A B C D 1 a = "C1"&" "&"D1" m n 2 b = "C2"&" "&"D2" a b 3 c = "C3"&" "&"D3" z e ... 999 p = "C999"&" "&"D999" x y
Merci pour vos solutions
YB
Peut etre recherches-tu ceci :
Sub CopierFormule()
With Worksheets("Feuil1")
Set Rg = .Range("B2:B999")
End With
Rg.FormulaLocal = "=" & """" & _
Rg(1).Offset(, 1).Address(0, 0) & """" & _
" & "" "" & " & """" & Rg(1). _
Offset(, 2).Address(0, 0) & """" & ""
End Sub
Salutations!
"lauxeti" <ybrunet@wanadoo.fr> a écrit dans le message de news: 1138131746.391841.57760@g44g2000cwa.googlegroups.com...
Bonsoir,
Je souhaiterais copier par macro par exemple
A B
C D
1 a = "C1"&" "&"D1"
m n
2 b
a b
3 c
z e
...
999 p
x y
B2 jusqu'à B999 pour obtenir
A B
C D
1 a = "C1"&" "&"D1"
m n
2 b = "C2"&" "&"D2"
a b
3 c = "C3"&" "&"D3"
z e
...
999 p = "C999"&" "&"D999" x
y
