• Initiateur de la discussion Initiateur de la discussion david.ridelaire
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

david.ridelaire

Guest
J'aimerai inserer une commande VBA dans excel

qui dirait :

si dans cellule intelle il y a quelque chose alors dans cellule intelle s'affiche la date du jour de manière permanente

d'avance merci à tous ceux qui répondront à ce post

DAVID
 
Re : Commande Vba

J'aimerai inserer une commande VBA dans excel

qui dirait :

si dans cellule intelle il y a quelque chose alors dans cellule intelle s'affiche la date du jour de manière permanente

d'avance merci à tous ceux qui répondront à ce post

DAVID
salut
soit précis dans ta demande si tu veux des réponses précises !
au lieu de inetelle, quelque chose etc... donne une adresse, etc...
Le VBA n'aime pas l'imprécision et moi non plus 😛

if not(isempty(range(inetelle))) then range(intelle)=date

C'est débile (s'il y a la date dans la cellule intelle => elle n'est pas vide => donc on met la date 😕 ), mais l'imprécision amène son cortège de non-sens !

A+
 
Re : Commande Vba

Salut david.ridelaire et le forum
Les précision étant :
si F8 <>"" alors G8 = Date

Ce que je comprends : si on inscrit quelque chose en F8, la date se met en G8 :
1re manip sous Excel finaliser le format de la cellule G8
Ensuite on va s'occuper de la macro : lancement automatique :
Clic-droit sur le nom de l'onglet>>Menu contextuel>>Visualiser le code
Tu colles le code d'une seule des 2 macros qui suivent, en fonction de ton besoin :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "F8" And Not (IsEmpty(Range("F8"))) Then _
            Range("G8") = Date
'si les cellules changer ont pour adresse F8 et que F8 n'est pas vide, alors
'G8 = la date du système (ordinateur)
End Sub
ou alors
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "F8" And Not (IsEmpty(Range("F8"))) And _
                    IsEmpty(Range("G8")) Then Range("G8") = Date
'si les cellules changer ont pour adresse F8, que F8 n'est pas vide,
'mais que G8 l'est alors G8 = la date du système (ordinateur)
End Sub
Si tu utilises le code dans une macro préexistante :
Code:
If Not (IsEmpty(Range("F8"))) Then Range("G8") = Date
ou l'autre instruction avec G8 vide

Le problème de ce genre de question, et en partie lié aux données, mais aussi au but à atteindre.

Donc, pour avoir le plus possible de réponses opportunes, il faut :
- Le problème lui-même
- Les données (toutes de préférence) aussi précises que possible (une adresse, un nom, ou une plage que tu peux adapter, mais pour cela, il faut savoir ce qui correspond et à quoi)
- Le but final : la formulation des solutions en dépend souvent

Avec tout ça, le nombre de postes diminue significativement et la solution est adaptée : on comprend ce que tu demandes, et automatiquement, les "magicien[ne]s" de ce forum ont envie d'y répondre

A+
 
Re : Commande Vba

re salut gorfael

la commande ne s'execute pas sous excel peux tu me donner quelques infos suplémentaires

si tu veux je t'envoie le fichier sur lequel je souhaite mettre ce programme

à bientôt david
 
Re : Commande Vba

re salut gorfael

la commande ne s'execute pas sous excel peux tu me donner quelques infos suplémentaires

si tu veux je t'envoie le fichier sur lequel je souhaite mettre ce programme

à bientôt david
Salut
??? c'est pas dans Excel ??? Me serais-je trompé de site ? 😕

effectivement, target n'est chargé par Excel que dans le cadre des macros automatiques.
Donc, en mode pas-à-pas, target doit rester vide
Envoies le fichier, on essayera de trouver
A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
23
Affichages
676
Retour