OVH Cloud OVH Cloud

modifier une plage avec du code

3 réponses
Avatar
Eddy Maue
est-il possible de modifier une plage avec une fonction vba

dans une cellule j'ai Somme(d10:d50)

disont que j'en ai un peu partout sur une feuille de calcul et je me
demandais s'il était possible de modifier la plage avec du code selon
des critères
pré-établis

Eddy a+

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net

3 réponses

Avatar
Daniel
Bonjour.
Par exemple, si ta formule est en A1, pour remplacer D10:D50 par C10:C50 :

Range("A1").Replace "D", "C"

Cordialement.
Daniel

"Eddy Maue" <eddymaue@@hotmail.com> a écrit dans le message de news:

est-il possible de modifier une plage avec une fonction vba

dans une cellule j'ai Somme(d10:d50)

disont que j'en ai un peu partout sur une feuille de calcul et je me
demandais s'il était possible de modifier la plage avec du code selon des
critères
pré-établis

Eddy a+

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net



Avatar
Daniel
Essaie la macro suivante :

Sub CopiesSpeciales()
Dim Plage As Range, c As Range, Col As Integer
If [C118] <> "" Then
Col = Range("IV118").End(xlToLeft).Column
If Col > 255 Then
MsgBox "La dernière colonne va être utilisée"
End If
Else
Col = 2
End If
Range("C118").Offset(0, Col - 2).Resize(10, 1).Value = _
Range("C74:C83").Value
End Sub

Daniel
"Daniel" a écrit dans le message de news:
%
Bonjour.
Par exemple, si ta formule est en A1, pour remplacer D10:D50 par C10:C50 :

Range("A1").Replace "D", "C"

Cordialement.
Daniel

"Eddy Maue" <eddymaue@@hotmail.com> a écrit dans le message de news:

est-il possible de modifier une plage avec une fonction vba

dans une cellule j'ai Somme(d10:d50)

disont que j'en ai un peu partout sur une feuille de calcul et je me
demandais s'il était possible de modifier la plage avec du code selon des
critères
pré-établis

Eddy a+

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net







Avatar
Daniel
Ne pas tenir compte du message précédent.
Daniel
"Daniel" a écrit dans le message de news:

Essaie la macro suivante :

Sub CopiesSpeciales()
Dim Plage As Range, c As Range, Col As Integer
If [C118] <> "" Then
Col = Range("IV118").End(xlToLeft).Column
If Col > 255 Then
MsgBox "La dernière colonne va être utilisée"
End If
Else
Col = 2
End If
Range("C118").Offset(0, Col - 2).Resize(10, 1).Value = _
Range("C74:C83").Value
End Sub

Daniel
"Daniel" a écrit dans le message de news:
%
Bonjour.
Par exemple, si ta formule est en A1, pour remplacer D10:D50 par C10:C50
:

Range("A1").Replace "D", "C"

Cordialement.
Daniel

"Eddy Maue" <eddymaue@@hotmail.com> a écrit dans le message de news:

est-il possible de modifier une plage avec une fonction vba

dans une cellule j'ai Somme(d10:d50)

disont que j'en ai un peu partout sur une feuille de calcul et je me
demandais s'il était possible de modifier la plage avec du code selon
des critères
pré-établis

Eddy a+

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net