VBA Mise a jour date plage

JBARBE

XLDnaute Barbatruc

• 20 Octobre 2013

• #2

Re : VBA Mise a jour date plage

Bonjour à tous,

A tester :

Code:

Option Explicit

Sub essai()
Dim i As Long
 For i = 2 To 65536
 If Cells(i, 20) = "" Then Exit For
 If Cells(i, 20) < Date Then Cells(i, 20) = Date
 Next i
End Sub

bonne soirée

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 20 Octobre 2013

• #3

Re : VBA Mise a jour date plage

Bon bah ecoute Nikel !!!! rien a dire

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 20 Octobre 2013

• #4

Re : VBA Mise a jour date plage

Desole parler trop vite j'ai oublier de mentionner que dans la collone 20 il ya defois des cellules vide > donc il se passe rien ... desole

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 20 Octobre 2013

• #5

Re : VBA Mise a jour date plage

Combien de lignes il va y avoir SVP ???

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 20 Octobre 2013

• #6

Re : VBA Mise a jour date plage

bah ca depend ca va ca viens defois 265 le lendemain j;en efface 20 c'est aleatoir

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 20 Octobre 2013

• #7

Re : VBA Mise a jour date plage

La cellule nommée " Plage " est comprise entre T2 et T65536

Code:

Option Explicit

Sub Essai()
Dim c As Range
For Each c In Range("Plage")
 If c < Date And c <> "" Then c = Date
Next c
End Sub

 

Pièces jointes

• MISE A JOUR-2.xls

  75 KB · Affichages: 21

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 20 Octobre 2013

• #8

Re : VBA Mise a jour date plage

Genial !!!

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 20 Octobre 2013

• #9

Re : VBA Mise a jour date plage

Excuse moi mais j'ai un grand doute si je met pas :
Sheets("Feuil1").Range("T2:T65600")
alors toute les collones T de toute les feuils vont changer ?

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 20 Octobre 2013

• #10

Re : VBA Mise a jour date plage

Tu veux dire à la place de range("Plage") !

Il n'y aura pas de problémes dans la mesure où tu spécifie l'onglet et la cellule comme tu as fait !

Bien entendu si tu change d'onglet, il faut le spécifier !

exemple : Sheets("Feuil2").Range("T2:T65600")

bonne soirée !

 

Dernière édition: 20 Octobre 2013

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 20 Octobre 2013

• #11

Re : VBA Mise a jour date plage

top merci !

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 22 Octobre 2013

• #12

Re : VBA Mise a jour date plage

Je suis desole mais je viens de me rencontre d'un bug (de ma faute) si dans la collone il y a des mots (ANNULER;PAYER OU AUTRE)
alors sa plante

 

Vote positif 0 Vote négatif