Condition sur une date en VBA

Paritec

XLDnaute Barbatruc

• 8 Juin 2010

• #2

Re : Condition sur une date en VBA

Bonjour Patricia 25
et si tu nous avais mis un exemple de ce que tu voulais obtenir cela aurait aussi été très bien ainsi que les expplications dans le fichier
abonne journée
a+
papou

 

Vote positif 0 Vote négatif

P

Patricia25

XLDnaute Nouveau

• 9 Juin 2010

• #3

Re : Condition sur une date en VBA

Bonjour Paritec
Je poste le fichier Excel modifié. Le dernier onglet donne le tableau final à obtenir.
Merci !

 

Pièces jointes

• Vol.xls

  27.5 KB · Affichages: 53
• Vol.xls

  27.5 KB · Affichages: 60
• Vol.xls

  27.5 KB · Affichages: 64

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 9 Juin 2010

• #4

Re : Condition sur une date en VBA

Bonjour Patricia.

Pas sûr d'avoir tout compris ni que que cela marche dans tous les cas, mais essaie le fichier joint.

A plus.

 

Pièces jointes

• Vol(1).xls

  41.5 KB · Affichages: 56

Vote positif 0 Vote négatif

P

Patricia25

XLDnaute Nouveau

• 9 Juin 2010

• #5

Re : Condition sur une date en VBA

désolé...fausse manip

 

Dernière édition: 9 Juin 2010

Vote positif 0 Vote négatif

P

Patricia25

XLDnaute Nouveau

• 9 Juin 2010

• #6

Re : Condition sur une date en VBA

Bonjour 13GIBE59 !

Déjà merci d'avoir pris du temps pour m'aider!!
C'était presque ça. J'ai juste supprimé deux lignes :

Sub vol()
Sheets("Tableau à màj (état actuel)").Activate
Range("C65536").End(xlUp).Select
derdate = ActiveCell.Value
derligne = ActiveCell.Row
'Rows("2:" & (derligne - 1)).Select
'Selection.Delete Shift:=xlUp
Sheets("Tableau source").Activate
Range("C65536").End(xlUp).Select
Do Until ActiveCell.Value = derdate
ActiveCell.Offset(-1, 0).Select
Loop
derlignedate = ActiveCell.Row
Range("C65536").End(xlUp).Select
derligne3 = ActiveCell.Row
Range("A" & (derlignedate + 1) & ":C" & derligne3).Select
Selection.Copy
Sheets("Tableau à màj (état actuel)").Select
Range("A65356").End(xlUp).Select
ActiveSheet.Paste
Application.CutCopyMode = False
[A1].Select
End Sub

Ce qui fait que la partie bleue (de la feuille 2) vient se copier à suite du tableau1 déjà en place !

En tout cas merci beaucoup
Bonne journée à toi et à tous !

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 9 Juin 2010

• #7

Re : Condition sur une date en VBA

Bonjour à tous

Un essai dans le classeur joint (sur la base de ce que je comprends du problème... ...c'est-à-dire peu de chose).​

ROGER2327
#3661

Lundi 23 Merdre 137 (Interprétation de l'humour, ST)
21 Prairial An CCXVIII
2010-W23-3T12:45:28Z

 

Pièces jointes

• Vol_3661.zip

  12.2 KB · Affichages: 30

Vote positif 0 Vote négatif

P

Patricia25

XLDnaute Nouveau

• 9 Juin 2010

• #8

Re : Condition sur une date en VBA

@ROGER2327 : 13GIBE59 a répondu à mon premier problème, je te remercie quand même !

Je ne voudrais pas exagérer, mais j'ai de nouveau une petite question!

Avec la première ligne ci-dessous, je sélectionne les cellules A2 à C2. Et j'aimerais par la suite que ma sélection s'étende pour ces trois colonnes (de A2 à C10). Mais avec la deuxième ligne la sélection ne s'étends que pour la première colonne (de A2 à A10) :

Range("A2:C2").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select

Comment faire ?
Encore merci

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 9 Juin 2010

• #9

Re : Condition sur une date en VBA

Essaie :

Code:

Range("A2:C2").Select
Range(ActiveCell, ActiveCell.[COLOR=red]Offset(0,2).[/COLOR]End(xlDown)).Select

 

Vote positif 0 Vote négatif

P

Patricia25

XLDnaute Nouveau

• 10 Juin 2010

• #10

Re : Condition sur une date en VBA

Merci beaucoup !
ça fonctionne parfaitement
Encore merci à tous

 

Vote positif 0 Vote négatif