étirer une plage en vba
Résolu
jc80
Messages postés
4243
Date d'inscription
Statut
Membre
Dernière intervention
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- étirer une plage en vba
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum Programmation
- Image de manchots sur une image de plage - Forum Musique / Radio / Clip
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image d’ours polaire sur une image de plage. retrouvez l'image originale de la plage. que cache l'ours polaire ? ✓ - Forum Google Chrome
- Excel compter cellule couleur sans vba - Guide
4 réponses
Bonjour,
J'ai trouvé un code sur ccm mais qui pose problème.
Non seulement il pose problème mais il a peu de chance de fonctionner ainsi car même en le faisant manuellement cela ne fonctionne pas il faudrait que tu nous donnes la formule en question pour que l'on te l'adapte.
J'ai trouvé un code sur ccm mais qui pose problème.
Non seulement il pose problème mais il a peu de chance de fonctionner ainsi car même en le faisant manuellement cela ne fonctionne pas il faudrait que tu nous donnes la formule en question pour que l'on te l'adapte.
Bonjour,
Avec ce que j'ai compris, je te propose ceci :
Avec ce que j'ai compris, je te propose ceci :
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Range("G1")
.Offset(0, 1).Value = DateAdd("m", 1, .Value)
.Copy
.Offset(0, 1).PasteSpecial Paste:=xlPasteFormats
End With
With Range("G2")
.Copy
.Offset(0, 1).PasteSpecial Paste:=xlPasteFormulas
End With
With Range("G6")
.Offset(0, 1).Value = DateAdd("m", 1, .Value)
.Copy
.Offset(0, 1).PasteSpecial Paste:=xlPasteFormats
End With
With Range("G7")
.Copy
.Offset(0, 1).PasteSpecial Paste:=xlPasteFormulas
End With
Application.CutCopyMode = False
End Sub
Bonjour gbinforme
Merci, pour ton aide
Formule en G2 =SOMME.SI.ENS($C:$C;$A:$A;">="&G1;$A:$A;"<="&FIN.MOIS(G1;0))
Formule en G7 =SOMME.SI.ENS($E:$E;$A:$A;">="&G6;$A:$A;"<="&FIN.MOIS(G6;0))
G1 et G6 sont au format mmm-aa
Cordialement
Merci, pour ton aide
Formule en G2 =SOMME.SI.ENS($C:$C;$A:$A;">="&G1;$A:$A;"<="&FIN.MOIS(G1;0))
Formule en G7 =SOMME.SI.ENS($E:$E;$A:$A;">="&G6;$A:$A;"<="&FIN.MOIS(G6;0))
G1 et G6 sont au format mmm-aa
Cordialement
Ta formule marche super pour 1 mois
exemple de Mai en G1 passe à Juin H1
Ce que je souhaiterais avoir ,c'est de pouvoir tous les mois ajouter 1 mois
exemple de H1 Juin passe à I1 Juillet.Ainsi de suite Aout septembre ...
j'espère que tu me comprends.
exemple de Mai en G1 passe à Juin H1
Ce que je souhaiterais avoir ,c'est de pouvoir tous les mois ajouter 1 mois
exemple de H1 Juin passe à I1 Juillet.Ainsi de suite Aout septembre ...
j'espère que tu me comprends.
Je te comprends parfaitement et je te modifie cela. ;-)
Private Sub CommandButton1_Click()
Dim col As Integer
Application.ScreenUpdating = False
col = Cells(1, Columns.Count).End(xlToLeft).Column
With Cells(1, col)
.Offset(0, 1).Value = DateAdd("m", 1, .Value)
.Copy
.Offset(0, 1).PasteSpecial Paste:=xlPasteFormats
End With
With Cells(2, col)
.Copy
.Offset(0, 1).PasteSpecial Paste:=xlPasteFormulas
End With
With Cells(6, col)
.Offset(0, 1).Value = DateAdd("m", 1, .Value)
.Copy
.Offset(0, 1).PasteSpecial Paste:=xlPasteFormats
End With
With Cells(7, col)
.Copy
.Offset(0, 1).PasteSpecial Paste:=xlPasteFormulas
End With
Application.CutCopyMode = False
End Sub