XL 2016 Automatiser une macro au changement de valeur

fanfan38

XLDnaute Barbatruc

• 3 Juin 2023

• #2

Bonjour et bienvenu sur le forum

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$G$26" And Range("G26") <> "" Then
    Call Transfert_2
  ElseIf Target.Address = "$C$26" Then
    Importer_New
  Else
    Exit Sub
  End If
Debug.Print mymodule
End Sub

A+ François

 

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 3 Juin 2023

• #3

Bonjour fanfan38, le forum,

merci fanfan38 pour l'aide, il a fonctionné mais j'ai un problème

j'ai ajouté Microsoft Date and Time Picker Control 6.0 (SP6) et lié avec la date dans la cellule C26

Mais quand je ouvert mon fichier le calendrier Microsoft s'affiche en haut !! il faut que je bouge la feuille en haut ou en bas pour que le deuxième affichage en haut disparaitre.



Après que je la bouge le calendrier prend forme :



ainsi quand je choisis une date depuis le calendrier Microsoft il me faut cliquer doublement sur la cellule C26 pour que la macro s'exécute



merci beaucoup pour votre aide.

 

Pièces jointes

• Exemple_automa.xlsm

  52.8 KB · Affichages: 1

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 3 Juin 2023

• #4

Bonjour
J'ai mis mon calendrier...

A+ François

 

Pièces jointes

• Exemple_automa (1).xlsm

  62.1 KB · Affichages: 1

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 3 Juin 2023

• #5

fanfan38 super intéressant, mais ce n'est pas compatible avec mes macros

la macro "importer" ne fonctionne plus + sur la cellule C26 je suis amenée à saisir manuellement parfois selon besoin.

Existe-t-il une solution simple pour les bugs sur mon fichier

merci

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 3 Juin 2023

• #6

Excuse c'est moi qui avait désactivé "importer"

A+ François

 

Pièces jointes

• Exemple_automa (1).xlsm

  62.1 KB · Affichages: 3

Vote positif 0 Vote négatif

Solution

Y

YANNISE

XLDnaute Junior

• 3 Juin 2023

• #7

y a une erreur d'exécution '424'

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 3 Juin 2023

• #8

set wsh1=Sheets("Feuil1")
devrai fonctionner
A+ François

 

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 3 Juin 2023

• #9

Super merci fanfan38

 

Vote positif 0 Vote négatif