XL 2016 resumer code vba

Staple1600

XLDnaute Barbatruc

• 22 Octobre 2017

• #16

Bonjour mapomme

C'est la même méthode, non?

'[B1:G32].Copy: Cells(Rows.Count, "H").End(xlUp)(2).PasteSpecial -4104
.Range("B:G").Copy .Range("H:M")
.Range("H:M").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
'idem:Selection.SpecialCells(4).Delete -4162

Cliquez pour agrandir...

Sauf que tu copies les colonnes entières

@lamho27
On se sait pas comment est alimentée la plage B1:G32.
Est-ce qu’après la recopie, elle est effacée manuellement?
Et qu'ensuite tu y saisis de nouvelles dates?

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Octobre 2017

• #17

Bonjour lamho27 🙂,

As tu vu le message #14 de ma pomme ?

 

Vote positif 0 Vote négatif

lamho27

XLDnaute Occasionnel

• 22 Octobre 2017

• #18

Bonjour mapomme
merci ton code ; très bien que je veux

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Octobre 2017

• #19

Bonjour Staple1600 😉,

Staple1600 à dit:

C'est la même méthode, non?
Sauf que tu copies les colonnes entières

Cliquez pour agrandir...

Tout à fait, c'est ça la différence qui justifie "une autre manière". Il m'en faut peu 😛

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Octobre 2017

• #20

Re mapomme

Tu peux m'expliquer le pourquoi de ta boucle, stp?
For i = 1 To .Rows.Count
If Application.WorksheetFunction.Count(.Range("h" & i & ":m" & i)) = 0 Then Exit For
Next i

(Je suis pas encore bien réveillé 😉 )

EDITION:
Il me manquait juste cette ligne, si j"ai bien compris

VB:

Sub aa()
Application.ScreenUpdating = False
If Len([H2]) > 0 Then Exit Sub
[B1:G32].Copy: [H2].PasteSpecial Paste:=xlPasteAll, SkipBlanks:=True
Selection.SpecialCells(4).Delete -4162: [H2].Select
End Sub

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Octobre 2017

• #21

Re Staple1600 😉,

Maintenant que tu es redevenu visible...🙄

Je recherche simplement la première ligne i entièrement vide des colonnes h à m pour appliquer aux lignes 1 à (i-1) l'encadrement pointillé. C'est pas optimisé mais ça le fait 😛.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Octobre 2017

• #22

Re Staple1600 😉,

Une autre petite différence, me semble-t-il, est que ma macro prend en compte les modifications du tableau source entre deux exécutions. Ta macro, une fois exécutée, ne retraite pas les données sources ( du moins, il me semble).

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Octobre 2017

• #23

Re

@mapomme
Je suis pas réveillé avais-je dit 😉
De quelle visibilité, tu parles?

C'est normal, le dimanche, mes macros ne se lancent qu'une fois! 😉
C'est un jour de repos.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Octobre 2017

• #24

Re,

Staple1600 à dit:

De quelle visibilité, tu parles?

Cliquez pour agrandir...

Il m'avait semblé avoir lu deux fils de discussions assez récents où tes réponses semblaient invisibles 😡...

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 22 Octobre 2017

• #25

Hello le forum
bizarre effectivement, ma proposition ne fonctionne pas sur le fichier posté par Lamho27, lequel contient des dates

alors que ca fonctionnait bien sur le fichier que je m'étais créé et qui ne contenait que des chiffres...
cf feuille2 du classeur

sans doute qu'excel n'aime pas la correspondance xlcelltypeconstant avec des dates....

 

Pièces jointes

• Classeur2.xlsm

  17.2 KB · Affichages: 24

Vote positif 0 Vote négatif