Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel test avec la comande NOW

test avec la comande NOW

16 réponses
Avatar
testou
Bjr

la commande now me permet d'afficher la date systeme et l'heure.
et je voudrai savoir quel est le code qui me permttrai de l'afficher dans la
cellule A2 .

sub test
Range("A2").select
Now
end sub
ce code ne m'a rient donnée
il genere une erreur
si vous savez, merci de votre aide
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
michdenis
Bonjour Pierre,

J'ai lui sur un autre fil que tu faisais de la formation ?

Est-ce que tous ceux et toutes celles à qui tu enseignent, tu les considèrent comme casse-pieds ? Je suppose que tu te
contentes d'engranger les euros ?

Ici Pierre tu es bénévole, tu n'est pas obligé de faire comme dans la "vraie vie" !


Ta procédure ne fonctionne pas.

A ) le chiffre zéro et la lettre "O" , y faut pas mélanger .... ça s'enseigne à la maternelle !

B ) Si l'usager décide d'effacer plus d'une cellule à la fois, ta procédure plante et ne remplit pas le rôle qu'elle
devrait faire c'est à dire insérer un zéro dans les cellules vides.

Et comme tes bons conseils sont gratuits, je n'ai rien d'autre à ajouter !


Salutations!



"Pierre Fauconnier" a écrit dans le message de news:

T'es casse-pieds, tu sais

A la place de ta boucle i,j, écris ceci
sub Mettre0()
range("a1:y65")=0
end sub

Et dans le module de la feuille où tu veux qu'il y ait des zéros pour 65
lignes et 25 colonnes, mets ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("a1:y65")) Is Nothing) And Target = ""
Then Target = O
End Sub


Ok?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"testou" a écrit dans le message de
news:
ok

j'ai ecrit ce code
Sub test()
For i = 1 To 65
For j = 1 To 25
Cells(i, j).Value = 0
Next
Next

If Cells.Isblank Then
Cells(i, j).Value = 0
Exit Sub
End If


End Sub

mais ca ne passe passe pas, cela me met des 0 sur les cellules mais je
veux

quand je supprime le 0 la cellule remet 0 automatiquement.

merci

Tu utilises l'événement Worksheet_Change.

Parmi les paramètres renvoyés par cet événement, il y a la cellule ou
les


cellules affectées.
Tu peux donc contrôler le nouveau contenu de la cellule. Si elle est
vide


(IsBlank) tu remets 0.

Tu peux bien sûr contrôler si la cellule modifiée fait partie d'une
plage de


cellules que tu auras choisie, ou d'autres contrôles dans le genre.

--
Patrick

"testou" wrote in message
news:
merci patrick
autre question :
je suis en train de faire un code
pour mettre des 0 sur les cellules qui sont vides,il faut que je ne
puisse



pas supprimer le 0 et il faut toujours qu'il y ai une valeur soit 0 ou
autre
s chose
au fait des que les utilisateurs veulent supprimer le 0 , exel ne
lautorise
pas.

merci de ton aide




Bonjour,

Range("A2") = Now

--
Patrick

"testou" wrote in message
news:
Bjr

la commande now me permet d'afficher la date systeme et l'heure.
et je voudrai savoir quel est le code qui me permttrai de
l'afficher





dans
la
cellule A2 .

sub test
Range("A2").select
Now
end sub
ce code ne m'a rient donnée
il genere une erreur
si vous savez, merci de votre aide


















Avatar
testou
patrick ca marche mieux

mais comment tu fe avec ce code si tu veut commencer à la 15eme colonne
d'abord pour mettre les 0
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <= 9 And Target.Column <= 2 And IsEmpty(Target) Then
Target = O
End If
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <= 65 and Target.Column<% and IsEmpty(Target) Then
Target = O
End If
End Sub

--
Patrick

"testou" wrote in message
news:
ton programme ne fct pas
j'ai le message incompatibilité de type



T'es casse-pieds, tu sais

A la place de ta boucle i,j, écris ceci
sub Mettre0()
range("a1:y65")=0
end sub

Et dans le module de la feuille où tu veux qu'il y ait des zéros pour 65
lignes et 25 colonnes, mets ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("a1:y65")) Is Nothing) And Target =
""
Then Target = O
End Sub


Ok?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"testou" a écrit dans le message de
news:
ok

j'ai ecrit ce code
Sub test()
For i = 1 To 65
For j = 1 To 25
Cells(i, j).Value = 0
Next
Next

If Cells.Isblank Then
Cells(i, j).Value = 0
Exit Sub
End If


End Sub

mais ca ne passe passe pas, cela me met des 0 sur les cellules mais je
veux

quand je supprime le 0 la cellule remet 0 automatiquement.

merci

Tu utilises l'événement Worksheet_Change.

Parmi les paramètres renvoyés par cet événement, il y a la cellule ou
les


cellules affectées.
Tu peux donc contrôler le nouveau contenu de la cellule. Si elle est
vide


(IsBlank) tu remets 0.

Tu peux bien sûr contrôler si la cellule modifiée fait partie d'une
plage de


cellules que tu auras choisie, ou d'autres contrôles dans le genre.

--
Patrick

"testou" wrote in message
news:
merci patrick
autre question :
je suis en train de faire un code
pour mettre des 0 sur les cellules qui sont vides,il faut que je ne
puisse



pas supprimer le 0 et il faut toujours qu'il y ai une valeur soit 0
ou
autre
s chose
au fait des que les utilisateurs veulent supprimer le 0 , exel ne
lautorise
pas.

merci de ton aide




Bonjour,

Range("A2") = Now

--
Patrick

"testou" wrote in message
news:
Bjr

la commande now me permet d'afficher la date systeme et l'heure.
et je voudrai savoir quel est le code qui me permttrai de
l'afficher





dans
la
cellule A2 .

sub test
Range("A2").select
Now
end sub
ce code ne m'a rient donnée
il genere une erreur
si vous savez, merci de votre aide






























Avatar
testou
oui au fait pour commence

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = "A15:A25" And Target.Column ="E:AA" And
IsEmpty(Target) Then
Target = 0
End If
End Sub
ca va marcher comme ca?



ce programme je l'integre dans la feuil1
et le module ou y'a ma macro, que doit je mettre

merci



Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <= 65 and Target.Column<% and IsEmpty(Target) Then
Target = O
End If
End Sub

--
Patrick

"testou" wrote in message
news:
ton programme ne fct pas
j'ai le message incompatibilité de type



T'es casse-pieds, tu sais

A la place de ta boucle i,j, écris ceci
sub Mettre0()
range("a1:y65")=0
end sub

Et dans le module de la feuille où tu veux qu'il y ait des zéros pour 65
lignes et 25 colonnes, mets ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("a1:y65")) Is Nothing) And Target =
""
Then Target = O
End Sub


Ok?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"testou" a écrit dans le message de
news:
ok

j'ai ecrit ce code
Sub test()
For i = 1 To 65
For j = 1 To 25
Cells(i, j).Value = 0
Next
Next

If Cells.Isblank Then
Cells(i, j).Value = 0
Exit Sub
End If


End Sub

mais ca ne passe passe pas, cela me met des 0 sur les cellules mais je
veux

quand je supprime le 0 la cellule remet 0 automatiquement.

merci

Tu utilises l'événement Worksheet_Change.

Parmi les paramètres renvoyés par cet événement, il y a la cellule ou
les


cellules affectées.
Tu peux donc contrôler le nouveau contenu de la cellule. Si elle est
vide


(IsBlank) tu remets 0.

Tu peux bien sûr contrôler si la cellule modifiée fait partie d'une
plage de


cellules que tu auras choisie, ou d'autres contrôles dans le genre.

--
Patrick

"testou" wrote in message
news:
merci patrick
autre question :
je suis en train de faire un code
pour mettre des 0 sur les cellules qui sont vides,il faut que je ne
puisse



pas supprimer le 0 et il faut toujours qu'il y ai une valeur soit 0
ou
autre
s chose
au fait des que les utilisateurs veulent supprimer le 0 , exel ne
lautorise
pas.

merci de ton aide




Bonjour,

Range("A2") = Now

--
Patrick

"testou" wrote in message
news:
Bjr

la commande now me permet d'afficher la date systeme et l'heure.
et je voudrai savoir quel est le code qui me permttrai de
l'afficher





dans
la
cellule A2 .

sub test
Range("A2").select
Now
end sub
ce code ne m'a rient donnée
il genere une erreur
si vous savez, merci de votre aide
































Avatar
Patrick Fredin
Tu ne veux pas un peu réfléchir ?

Tu mets toutes les cellules qui auront un zéro si on les vide :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <= 9 And Target.Column >= 15 And Target.Column <= 25
And IsEmpty(Target) Then
Target = O
End If
End Sub

--
Patrick

"testou" wrote in message
news:
patrick ca marche mieux

mais comment tu fe avec ce code si tu veut commencer à la 15eme colonne
d'abord pour mettre les 0
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <= 9 And Target.Column <= 2 And IsEmpty(Target) Then
Target = O
End If
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <= 65 and Target.Column<% and IsEmpty(Target)
Then
Target = O
End If
End Sub

--
Patrick

"testou" wrote in message
news:
ton programme ne fct pas
j'ai le message incompatibilité de type



T'es casse-pieds, tu sais

A la place de ta boucle i,j, écris ceci
sub Mettre0()
range("a1:y65")=0
end sub

Et dans le module de la feuille où tu veux qu'il y ait des zéros pour
65
lignes et 25 colonnes, mets ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("a1:y65")) Is Nothing) And Target
""
Then Target = O




End Sub


Ok?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"testou" a écrit dans le message de
news:
ok

j'ai ecrit ce code
Sub test()
For i = 1 To 65
For j = 1 To 25
Cells(i, j).Value = 0
Next
Next

If Cells.Isblank Then
Cells(i, j).Value = 0
Exit Sub
End If


End Sub

mais ca ne passe passe pas, cela me met des 0 sur les cellules mais
je
veux

quand je supprime le 0 la cellule remet 0 automatiquement.

merci

Tu utilises l'événement Worksheet_Change.

Parmi les paramètres renvoyés par cet événement, il y a la cellule
ou
les


cellules affectées.
Tu peux donc contrôler le nouveau contenu de la cellule. Si elle
est
vide


(IsBlank) tu remets 0.

Tu peux bien sûr contrôler si la cellule modifiée fait partie
d'une
plage de


cellules que tu auras choisie, ou d'autres contrôles dans le
genre.

--
Patrick

"testou" wrote in message
news:
merci patrick
autre question :
je suis en train de faire un code
pour mettre des 0 sur les cellules qui sont vides,il faut que je
ne
puisse



pas supprimer le 0 et il faut toujours qu'il y ai une valeur
soit 0
ou
autre
s chose
au fait des que les utilisateurs veulent supprimer le 0 , exel
ne
lautorise
pas.

merci de ton aide




Bonjour,

Range("A2") = Now

--
Patrick

"testou" wrote in message
news:
Bjr

la commande now me permet d'afficher la date systeme et
l'heure.
et je voudrai savoir quel est le code qui me permttrai de
l'afficher





dans
la
cellule A2 .

sub test
Range("A2").select
Now
end sub
ce code ne m'a rient donnée
il genere une erreur
si vous savez, merci de votre aide
































Avatar
michdenis
Hey toé ti-clin,

vas-y molo !

T'es con ou quoi ... Comment le numéro d'une colonne peut être à la fois plus petite que 9 ET plus grande que 15 ?

If Target.Row <= 9 And Target.Column >= 15

Si tu réfléchissais toi aussi avant de répondre ?

Target = O

Tu peux faire la différence entre Zéro et "O"


Salutations!





"Patrick Fredin" a écrit dans le message de news:
%
Tu ne veux pas un peu réfléchir ?

Tu mets toutes les cellules qui auront un zéro si on les vide :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <= 9 And Target.Column >= 15 And Target.Column <= 25
And IsEmpty(Target) Then
Target = O
End If
End Sub

--
Patrick

"testou" wrote in message
news:
patrick ca marche mieux

mais comment tu fe avec ce code si tu veut commencer à la 15eme colonne
d'abord pour mettre les 0
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <= 9 And Target.Column <= 2 And IsEmpty(Target) Then
Target = O
End If
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <= 65 and Target.Column<% and IsEmpty(Target)
Then
Target = O
End If
End Sub

--
Patrick

"testou" wrote in message
news:
ton programme ne fct pas
j'ai le message incompatibilité de type



T'es casse-pieds, tu sais

A la place de ta boucle i,j, écris ceci
sub Mettre0()
range("a1:y65")=0
end sub

Et dans le module de la feuille où tu veux qu'il y ait des zéros pour
65
lignes et 25 colonnes, mets ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("a1:y65")) Is Nothing) And Target
""
Then Target = O




End Sub


Ok?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"testou" a écrit dans le message de
news:
ok

j'ai ecrit ce code
Sub test()
For i = 1 To 65
For j = 1 To 25
Cells(i, j).Value = 0
Next
Next

If Cells.Isblank Then
Cells(i, j).Value = 0
Exit Sub
End If


End Sub

mais ca ne passe passe pas, cela me met des 0 sur les cellules mais
je
veux

quand je supprime le 0 la cellule remet 0 automatiquement.

merci

Tu utilises l'événement Worksheet_Change.

Parmi les paramètres renvoyés par cet événement, il y a la cellule
ou
les


cellules affectées.
Tu peux donc contrôler le nouveau contenu de la cellule. Si elle
est
vide


(IsBlank) tu remets 0.

Tu peux bien sûr contrôler si la cellule modifiée fait partie
d'une
plage de


cellules que tu auras choisie, ou d'autres contrôles dans le
genre.

--
Patrick

"testou" wrote in message
news:
merci patrick
autre question :
je suis en train de faire un code
pour mettre des 0 sur les cellules qui sont vides,il faut que je
ne
puisse



pas supprimer le 0 et il faut toujours qu'il y ai une valeur
soit 0
ou
autre
s chose
au fait des que les utilisateurs veulent supprimer le 0 , exel
ne
lautorise
pas.

merci de ton aide




Bonjour,

Range("A2") = Now

--
Patrick

"testou" wrote in message
news:
Bjr

la commande now me permet d'afficher la date systeme et
l'heure.
et je voudrai savoir quel est le code qui me permttrai de
l'afficher





dans
la
cellule A2 .

sub test
Range("A2").select
Now
end sub
ce code ne m'a rient donnée
il genere une erreur
si vous savez, merci de votre aide
































Avatar
Pierre Fauconnier
Salut...

1. Désolé, j'ai oublié le smiley après la première ligne de mon intervention
2. Les procs et autres qui sont données ici permettent certainement à
l'utilisateur de réfléchir par lui-même de manière à pouvoir avancer et à
revenir ici avec des questions plus précises. Si j'ai été un peu léger dans
ma réponse, c'est qu'elle était non testée (cela arrive au meilleur) et ce
n'est certainement pas mon fait habituel.
3. Je n'ai rien contre le fait que Testou soit un débutant et qu'il pose des
questions basiques. Je lui ai, dans un autre fil, proposé des bouquins, et
il y a sur le net de très bons tutoriels qui le feront progresser. Moi,
lorsque j'ai commencé avec Excel, j'ai testé plein de choses par moi-même,
j'ai fait des erreurs, j'ai recommencé, ... mais je n'ai pas appelé au
secours dès que cela plantait...

Soit Testou est un plaisantin déguisé, et dans ce cas, les plus courtes sont
souvent les meilleures, soit c'est quelqu'un qui désire vraiment progresser
et dans ce cas, en étant ouvert à toute question de sa part, je rejoins
celles et ceux qui, sur ce forum, lui ont conseillé de chercher un peu par
lui-même avant d'inonder le forum de moultes questions dès que ça plante ou
qu'il se pose une question du genre " est-ce que ceci fonctionnera?".

Amicalement


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"michdenis" a écrit dans le message de
news:
Bonjour Pierre,

J'ai lui sur un autre fil que tu faisais de la formation ?

Est-ce que tous ceux et toutes celles à qui tu enseignent, tu les
considèrent comme casse-pieds ? Je suppose que tu te

contentes d'engranger les euros ?

Ici Pierre tu es bénévole, tu n'est pas obligé de faire comme dans la
"vraie vie" !



Ta procédure ne fonctionne pas.

A ) le chiffre zéro et la lettre "O" , y faut pas mélanger .... ça
s'enseigne à la maternelle !


B ) Si l'usager décide d'effacer plus d'une cellule à la fois, ta
procédure plante et ne remplit pas le rôle qu'elle

devrait faire c'est à dire insérer un zéro dans les cellules vides.

Et comme tes bons conseils sont gratuits, je n'ai rien d'autre à ajouter !


Salutations!



"Pierre Fauconnier" a écrit dans le
message de news:


T'es casse-pieds, tu sais

A la place de ta boucle i,j, écris ceci
sub Mettre0()
range("a1:y65")=0
end sub

Et dans le module de la feuille où tu veux qu'il y ait des zéros pour 65
lignes et 25 colonnes, mets ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("a1:y65")) Is Nothing) And Target = ""
Then Target = O
End Sub


Ok?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"testou" a écrit dans le message de
news:
ok

j'ai ecrit ce code
Sub test()
For i = 1 To 65
For j = 1 To 25
Cells(i, j).Value = 0
Next
Next

If Cells.Isblank Then
Cells(i, j).Value = 0
Exit Sub
End If


End Sub

mais ca ne passe passe pas, cela me met des 0 sur les cellules mais je
veux

quand je supprime le 0 la cellule remet 0 automatiquement.

merci

Tu utilises l'événement Worksheet_Change.

Parmi les paramètres renvoyés par cet événement, il y a la cellule ou
les


cellules affectées.
Tu peux donc contrôler le nouveau contenu de la cellule. Si elle est
vide


(IsBlank) tu remets 0.

Tu peux bien sûr contrôler si la cellule modifiée fait partie d'une
plage de


cellules que tu auras choisie, ou d'autres contrôles dans le genre.

--
Patrick

"testou" wrote in message
news:
merci patrick
autre question :
je suis en train de faire un code
pour mettre des 0 sur les cellules qui sont vides,il faut que je ne
puisse



pas supprimer le 0 et il faut toujours qu'il y ai une valeur soit 0
ou




autre
s chose
au fait des que les utilisateurs veulent supprimer le 0 , exel ne
lautorise
pas.

merci de ton aide




Bonjour,

Range("A2") = Now

--
Patrick

"testou" wrote in message
news:
Bjr

la commande now me permet d'afficher la date systeme et l'heure.
et je voudrai savoir quel est le code qui me permttrai de
l'afficher





dans
la
cellule A2 .

sub test
Range("A2").select
Now
end sub
ce code ne m'a rient donnée
il genere une erreur
si vous savez, merci de votre aide























1 2