A voir également:
- Lacner une macro quand valeur en A2 = "texte"
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Transcription audio en texte word gratuit - Guide
- Macro word - Guide
- Excel cellule couleur si condition texte - Guide
- Mettre un texte en majuscule - Guide
3 réponses
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
11 juin 2016 à 11:14
11 juin 2016 à 11:14
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
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
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 413
Modifié par Vaucluse le 11/06/2016 à 11:16
Modifié par Vaucluse le 11/06/2016 à 11:16
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!
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
11 juin 2016 à 12:15
11 juin 2016 à 12:15
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 :
Attention à ne pas confondre Worksheet_Change(..)
et Worksheet_SelectionChange(..) !
Cordialement. 😊
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. 😊
11 juin 2016 à 12:03
je suis sur vba que depuis 1 semaine, pourrais tu me donner un texte complet car j'y comprends pas grand chose.
Merci d'avance