Lacner une macro quand valeur en A2 = "texte"

Question

Bonjours

J'aimerais avoir un bouton macro sur ma feuille excel
qui lance une importation de donné et en même temps j'aimerais pouvoir lancer une macro quand la valeur en A2 change

La valeur en A2 sera un nom client et j'aimerais quand quand le nom du client change lance une macro déjà enregistrer.

comme cela quand je lancer la macro importation de donnée il change en même temps les donne client sur la facture.

voici la macro importation :

Sub Importation()
'
' Importation Macro
' Importation des valeur dans facture type
'

'
    Sheets("Facture type").Select
    Range("A15:G31").Select
    Selection.ClearContents
    Sheets("Compta").Select
    Selection.Copy
    Sheets("Facture type").Select
    Range("A15").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    
End Sub

Mike-31 · Answer

Bonjour,

teste comme cela
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A2]) Is Nothing Then
Sheets("Facture type").Select
Range("A15:G31").ClearContents
Sheets("Compta").Copy
Sheets("Facture type").Select
Range("A15").Select
Selection.PasteSpecial Paste:=xlValues
End If
End Sub

Vaucluse · Answer

Bonjour

pour lancer une macro en changeant la valeur de A2, essayez dans le code feuille:

Private Sub Worksheet_change(ByVal Target As Range)
If Target.Cells = Cells(2, 1) Then
Call Importation
End If
End Sub

crdlmnt
 
La qualité de la réponse dépend surtout de la clarté de la question, merci!

Utilisateur anonyme · Answer

Bonjour johnny,

Je suppose que tu as mis ta sub Importation() dans un module,
par exemple Module1. Tu n'as pas précisé quelle est la feuille
où tu entres un nom de client en cellule A2 ; je vais supposer
que c'est sur la feuille "Facture type".

Dans ce cas, va sur le code de la feuille "Facture type",
et mets le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$2" Then Importation
End Sub

Attention à ne pas confondre Worksheet_Change(..)
et Worksheet_SelectionChange(..) !

Cordialement.  &#x1F60A;

Lacner une macro quand valeur en A2 = "texte"

3 réponses

Discussions similaires

Newsletters