VBA Mise a jour date plage

[Bens7]

Bonjour a tous j'ai un petit soucci mais aucune idee comment faire je pensse que c'est simple je souhaiterais mettre a jour des date dans une plage qui sont inferieur a aujourdhui en cliqueant sur un bouton et mettre la date d'aujourdhui

Voila je vous met le fichier en piece jointe au cas ou

 

[JBARBE]

Re : VBA Mise a jour date plage

Bonjour à tous,

A tester :

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

 

[Bens7]

Re : VBA Mise a jour date plage

Bon bah ecoute Nikel !!!! rien a dire

 

[Bens7]

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

 

[JBARBE]

Re : VBA Mise a jour date plage

Combien de lignes il va y avoir SVP ???

 

[Bens7]

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

 

[JBARBE]

Re : VBA Mise a jour date plage

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

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

 

[Bens7]

Re : VBA Mise a jour date plage

Genial !!!

 

[Bens7]

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 ?

 

[JBARBE]

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 !

 

[Bens7]

Re : VBA Mise a jour date plage

top merci !

 

[Bens7]

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