Macro ne fonctionnant pas
Fermé
haffinger
-
16 janv. 2017 à 18:33
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 17 janv. 2017 à 12:41
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 17 janv. 2017 à 12:41
A voir également:
- Macro ne fonctionnant pas
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Tri automatique excel sans macro ✓ - Forum Excel
5 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 778
16 janv. 2017 à 22:16
16 janv. 2017 à 22:16
Bonjour,
Il n'y a pas de macro dans le fichier joint
(elle est dans un autre fichier nommé calcul tva janv 2017-5-3.xls)
Il n'y a pas de macro dans le fichier joint
(elle est dans un autre fichier nommé calcul tva janv 2017-5-3.xls)
haffinger1
Messages postés
6
Date d'inscription
jeudi 12 janvier 2017
Statut
Membre
Dernière intervention
17 janvier 2017
17 janv. 2017 à 09:32
17 janv. 2017 à 09:32
haffinger1
Messages postés
6
Date d'inscription
jeudi 12 janvier 2017
Statut
Membre
Dernière intervention
17 janvier 2017
17 janv. 2017 à 09:34
17 janv. 2017 à 09:34
https://www.cjoint.com/c/GArhYRl2ROj
je remets le fichier car la macro n’était pas présente
elle se trouve sur la feuille facture
merci d'avance
je remets le fichier car la macro n’était pas présente
elle se trouve sur la feuille facture
merci d'avance
Bonjour
A toi de finier la macro
A+
Maurice
A toi de finier la macro
Sub Macro2() Passe = True With Sheets(Feuil2.Name) Nlig = .Range("A" & Rows.Count).End(xlUp).Row For L = 2 To Nlig If .Range("C" & L).Value = Range("B6").Value Then Passe = False MsgBox "Pas Bon" Exit For End If Next If Passe = True Then Lig = Nlig + 1 .Range("A" & Lig).Value = Range("B1").Value ' Jour .Range("B" & Lig).Value = Range("B2").Value ' Client .Range("C" & Lig).Value = Range("B4").Value ' N°Fact .Range("D" & Lig).Value = Range("G14").Value ' Montant MsgBox "OK" End If End With End Sub
A+
Maurice
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
haffinger1
Messages postés
6
Date d'inscription
jeudi 12 janvier 2017
Statut
Membre
Dernière intervention
17 janvier 2017
17 janv. 2017 à 11:01
17 janv. 2017 à 11:01
Merci momo d'avoir vu mon problème
par contre je suis néophyte dans les macros
pour moi, l’écriture des termes, c'est de l’hébreu
si tu peux finaliser la macro ou une personne qui peux m'aider
je vous remercie d'avance
par contre je suis néophyte dans les macros
pour moi, l’écriture des termes, c'est de l’hébreu
si tu peux finaliser la macro ou une personne qui peux m'aider
je vous remercie d'avance
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 778
17 janv. 2017 à 12:41
17 janv. 2017 à 12:41
Un excellent cours gratuit pour débutant :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf