Excel + Visual Basic Application
Fermé
Sabrina81
-
19 janv. 2008 à 18:05
upper Messages postés 6 Date d'inscription jeudi 3 janvier 2008 Statut Membre Dernière intervention 1 février 2010 - 23 août 2008 à 19:30
upper Messages postés 6 Date d'inscription jeudi 3 janvier 2008 Statut Membre Dernière intervention 1 février 2010 - 23 août 2008 à 19:30
A voir également:
- Excel + Visual Basic Application
- Application mobile - Guide
- Visual basic - Télécharger - Langages
- Liste déroulante excel - Guide
- Microsoft 365 basic - Accueil - Microsoft Office
- Microsoft visual c++ runtime - Guide
8 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
19 janv. 2008 à 18:36
19 janv. 2008 à 18:36
bonjour,
bin...
si la date est dans une cellule, tu écris par exemple
madate et madatemodifiée sont des variables
madate=range("B6")
et si transformation
range("B6")=madatemodifiée
bin...
si la date est dans une cellule, tu écris par exemple
madate et madatemodifiée sont des variables
madate=range("B6")
et si transformation
range("B6")=madatemodifiée
Sabrina81
Messages postés
4
Date d'inscription
samedi 19 janvier 2008
Statut
Membre
Dernière intervention
19 janvier 2008
19 janv. 2008 à 18:41
19 janv. 2008 à 18:41
En fait, sur ma feuille excel, le calendrier peut être modifié en permanence selon le mois et l'année...
Dans VBA, j'ai crée un Userform ou j'ai mis une zone de texte "date"
Je voudrais que le contenu de mon userform soit écrit à la bonne date de mon calendrier...Je sais pas si c'est faisable
Merci d'avance
Dans VBA, j'ai crée un Userform ou j'ai mis une zone de texte "date"
Je voudrais que le contenu de mon userform soit écrit à la bonne date de mon calendrier...Je sais pas si c'est faisable
Merci d'avance
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
19 janv. 2008 à 19:13
19 janv. 2008 à 19:13
Comment est changée ta date sur la feuillle ?
Si le changement se fait par saisie ou si l'origine du changement vient d'ailleurs que de la feuille où tu as la date, cela ne pose pas trop de pb; sinon indique ce qui fait le changement.
petite piste qqsoit l'origine: il faut mettre la propriété "showmodal" de ton userform à "false"
Si le changement se fait par saisie ou si l'origine du changement vient d'ailleurs que de la feuille où tu as la date, cela ne pose pas trop de pb; sinon indique ce qui fait le changement.
petite piste qqsoit l'origine: il faut mettre la propriété "showmodal" de ton userform à "false"
Sabrina81
Messages postés
4
Date d'inscription
samedi 19 janvier 2008
Statut
Membre
Dernière intervention
19 janvier 2008
19 janv. 2008 à 19:22
19 janv. 2008 à 19:22
Le calendrier sur la feuille excel se modifie par une liste...donc chaque fois que je change le mois ou l'année....le calendrier se modifie...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
19 janv. 2008 à 19:36
19 janv. 2008 à 19:36
et cette liste se trouve où?
petites explications (rappel: propriété showmodal à false)
Ton userform étant lancé; par exemple:
Private Sub UserForm_Initialize()
Me.TextBox1 = Range("D6")
End Sub
on pourrait écrire une événementielle dans ta feuille:
Private Sub Worksheet_Change(ByVal Target As Range)
Unload UserForm1
UserForm1.Show
End Sub
Or, tel quel, chaque fois que tu modifieras une cellule dans ta feuille, l'événementielle sera lancée...
C'est donc l'origine du changement qui va déclencher
Si ta liste est mettons en A1:A10 sur la m^me feuille
on aura:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then: Exit Sub
Unload UserForm1
UserForm1.Show
End Sub
si l'origine du changement est ailleurs on aura, si la date est en D16:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D16")) Is Nothing Then: Exit Sub
Unload UserForm1
UserForm1.Show
End Sub
petites explications (rappel: propriété showmodal à false)
Ton userform étant lancé; par exemple:
Private Sub UserForm_Initialize()
Me.TextBox1 = Range("D6")
End Sub
on pourrait écrire une événementielle dans ta feuille:
Private Sub Worksheet_Change(ByVal Target As Range)
Unload UserForm1
UserForm1.Show
End Sub
Or, tel quel, chaque fois que tu modifieras une cellule dans ta feuille, l'événementielle sera lancée...
C'est donc l'origine du changement qui va déclencher
Si ta liste est mettons en A1:A10 sur la m^me feuille
on aura:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then: Exit Sub
Unload UserForm1
UserForm1.Show
End Sub
si l'origine du changement est ailleurs on aura, si la date est en D16:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D16")) Is Nothing Then: Exit Sub
Unload UserForm1
UserForm1.Show
End Sub
Sabrina81
Messages postés
4
Date d'inscription
samedi 19 janvier 2008
Statut
Membre
Dernière intervention
19 janvier 2008
19 janv. 2008 à 19:44
19 janv. 2008 à 19:44
J'ai du mal à saisir...Est-il possible d'échanger adresse msn ou mail pour communiquer?
merci
merci
Sabrina81
Messages postés
4
Date d'inscription
samedi 19 janvier 2008
Statut
Membre
Dernière intervention
19 janvier 2008
19 janv. 2008 à 20:35
19 janv. 2008 à 20:35
Comme ça je peux vous envoyer le début de mon travail et vous indiquer ou je coince....
Merci d'avance......
Merci d'avance......
upper
Messages postés
6
Date d'inscription
jeudi 3 janvier 2008
Statut
Membre
Dernière intervention
1 février 2010
23 août 2008 à 19:30
23 août 2008 à 19:30
la force de l'esprit c'est l'action.