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

10 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
Patrick Fredin
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
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 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 Testou ( têtu??)

Heu, par hasard, t'as jamais pensé à te procurer "Excel pour les nuls", ou
la bible Excel.. ou à suivre une formation ( j'en donne, si tu veux... )

;-)


--
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:
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
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
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
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

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
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 n'as pas besoin d'une autre macro. Mais si tu veux vraiment en faire une,
tu ajoutes un module.

--
Patrick

"testou" wrote in message
news:
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
































1 2