Ecriture en VBA

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Excel Ecriture en VBA

3 réponses

Didier Novarin

09/09/2006 à 19:43

Bonjour
Je souhaite écrire en VBA la syntaxe suivante :
Pour toutes les cellules de la plage G3:G250 (date)
Si dans chaque cellule la date <= à aujourd'hui, alors
mettre dans la case J correspondante un X dans la cellule
Je vous remercie
Didier

3 réponses

Jacky

09/09/2006 à 19:56

Re....

mettre dans la case J correspondante un X dans la cellule
Ceci:

'------------
Sub jj()
Application.ScreenUpdating = False
[j3:j250].ClearContents
For Each c In [g3:g250]
If c <= Now Then c.Offset(0, 3) = "X"
Next
End Sub
'---------
Salutations
JJ

"Didier Novarin" a écrit dans le message de
news:

Bonjour
Je souhaite écrire en VBA la syntaxe suivante :
Pour toutes les cellules de la plage G3:G250 (date)
Si dans chaque cellule la date <= à aujourd'hui, alors
mettre dans la case J correspondante un X dans la cellule
Je vous remercie
Didier

FxM

11/09/2006 à 22:37

Bonsoir Didier,

Tu n'aurais pas un problème de date ?

@+
FxM

Merci beaucoup JJ
C'est impeccable
Bonne soirée
Didier

"Jacky" a écrit dans le message de news:

Re....
mettre dans la case J correspondante un X dans la cellule
Ceci:

'------------
Sub jj()
Application.ScreenUpdating = False
[j3:j250].ClearContents
For Each c In [g3:g250]
If c <= Now Then c.Offset(0, 3) = "X"
Next
End Sub
'---------
Salutations
JJ

"Didier Novarin" a écrit dans le message de
news:
Bonjour
Je souhaite écrire en VBA la syntaxe suivante :
Pour toutes les cellules de la plage G3:G250 (date)
Si dans chaque cellule la date <= à aujourd'hui, alors
mettre dans la case J correspondante un X dans la cellule
Je vous remercie
Didier

Didier Novarin

13/09/2006 à 21:43

Bonsoir
Oui, j'ai rectifié
Merci
Didier

"FxM" a écrit dans le message de news:

Bonsoir Didier,

Tu n'aurais pas un problème de date ?

@+
FxM

Merci beaucoup JJ
C'est impeccable
Bonne soirée
Didier

"Jacky" a écrit dans le message de news:

Re....
mettre dans la case J correspondante un X dans la cellule
Ceci:

'------------
Sub jj()
Application.ScreenUpdating = False
[j3:j250].ClearContents
For Each c In [g3:g250]
If c <= Now Then c.Offset(0, 3) = "X"
Next
End Sub
'---------
Salutations
JJ

"Didier Novarin" a écrit dans le message de
news:
Bonjour
Je souhaite écrire en VBA la syntaxe suivante :
Pour toutes les cellules de la plage G3:G250 (date)
Si dans chaque cellule la date <= à aujourd'hui, alors
mettre dans la case J correspondante un X dans la cellule
Je vous remercie
Didier

Ecriture en VBA

3 réponses

Veuillez sélectionner un problème