étirer une plage en vba
Résolu/Fermé
jc80
Messages postés
4243
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
-
Modifié par jc80 le 4/09/2016 à 14:50
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 4 sept. 2016 à 17:51
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 4 sept. 2016 à 17:51
A voir également:
- étirer une plage en vba
- Incompatibilité de type vba ✓ - Forum Programmation
- Comment faire une liste déroulante dans excel à partir d'une plage nommée ? - Guide
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
- 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
4 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 716
4 sept. 2016 à 15:37
4 sept. 2016 à 15:37
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.
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 716
4 sept. 2016 à 16:18
4 sept. 2016 à 16:18
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
jc80
Messages postés
4243
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 424
4 sept. 2016 à 15:43
4 sept. 2016 à 15:43
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
jc80
Messages postés
4243
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 424
Modifié par jc80 le 4/09/2016 à 16:36
Modifié par jc80 le 4/09/2016 à 16:36
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.
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 716
Modifié par gbinforme le 4/09/2016 à 16:51
Modifié par gbinforme le 4/09/2016 à 16:51
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
jc80
Messages postés
4243
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 424
>
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 sept. 2016 à 17:41
4 sept. 2016 à 17:41
Merci pour toutes tes solutions .
Cela fonctionne à merveille.
Merci encore pour ton aide
Cordialement
Cela fonctionne à merveille.
Merci encore pour ton aide
Cordialement
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 716
4 sept. 2016 à 17:51
4 sept. 2016 à 17:51
Merci du retour sympathique et bonne continuation.