#1
Bonjour,
Je m'excuse par avance car je sais que la question a déjà été posée. Cependant, les solutions qui me paraissent on ne peut plus logiques ne fonctionnent pas et je ne trouve pas pourquoi? J'exécute un code VBA dans "Feuil1" et je voudrait que ça remplisse les cases de ma "Feuil2". Grâce à l'enregistreur de macro, j'ai le code que je veux et il fonctionne sauf qu'il se met dans la "Feuil1" et non dans la "Feuil2" comme je le souhaiterai. Code:
Private Sub Calculs_Click()
Sheets("Feuil2"). Activate
Range("E6")
rmulaR1C1 = _
"=COUNTIFS(Feuil1! Vba ecrire dans une cellule sur. R2C6:R115C6, ""*""&'Feuil2'! RC[-1]&""*"", Feuil1! R2C2:R115C2, ""115"")"
toFill Destination:=Range("E6:E32")
Range("E6:E32")
Range("D6:D32")
steSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
tCopyMode = False
Range("E35")
End Sub
Même en rajoutant la ligne pour activer "Feuil2", ça ne fonctionne pas? Merci pour votre aide. Anthony
#2
Bonjour le forum
Si je mets un controle CommandButton sur la feuille 1 avec ce code VBA simplifié juste pour tester.
Vba Ecrire Dans Une Cellule Humaine
VB:
Private Sub CommandButton1_Click()
("E6"). FormulaR1C1 = "=COUNTIFS(Feuil1! R2C6:R115C6, ""*""&'Feuil2'! RC[-1]&""*"", Feuil1! R2C2:R115C2, ""G2150A"")"
La formule est bien insérée sur la Feuille 2 EDITION
Avec ce code, la formule est copiée puis coller en valeur seules en colonne D sur la feuille 2
("E6:E32"). FormulaR1C1 = "=COUNTIFS(Feuil1! R2C6:R115C6, ""*""&'Feuil2'! RC[-1]&""*"", Feuil1! R2C2:R115C2, ""G2150A"")"
("D6:D32") = ("E6:E32")
Tu peux joindre un exemple de classeur? #3
Bonjour
Essaye:
reenUpdating = False
With Sheets("Feuil2"). Activate
("E6"). FormulaR1C1 = _
"=COUNTIFS(Feuil1! R2C6:R115C6, ""*""&RC[-1]&""*"", Feuil1! Astuce VBA : mise en forme de caractères dans une cellule. R2C2:R115C2, ""115"")"
("E6:E32"). FillDown
("D6:D32")
("E6"). PasteSpecial Paste:=xlPasteFormats
("E35")
End With
#4
Bonjour Yuperqod et Chris401,
Un grand merci à tous les 2, vos 2 codes fonctionnent parfaitement bien. Voici un fichier d'exemple dans lequel j'ai insérer vos codes, si ça peut aider quelqu'un à ce sujet. Encore un grand merci. Travailler dans autre
24.
Cette plage reçoit ensuite une mise en forme Monétaire. Sub Region()
= "Currency"
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation? Consultez la rubrique concernant l'assistance pour Office VBA et l'envoi de commentaires afin d'obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.
Recevez-le vendredi 17 juin Livraison à 15, 14 €
Recevez-le vendredi 17 juin Livraison à 12, 97 €
Recevez-le vendredi 17 juin Livraison à 11, 57 € Autres vendeurs sur Amazon 6, 80 € (5 neufs)
Recevez-le vendredi 17 juin Livraison à 11, 80 €
Recevez-le vendredi 17 juin Livraison à 14, 65 €
Recevez-le vendredi 17 juin Livraison à 12, 49 €
Livraison à 12, 26 € Temporairement en rupture de stock. Recevez-le vendredi 17 juin Livraison à 11, 68 € Autres vendeurs sur Amazon 8, 44 € (8 neufs)
Recevez-le jeudi 16 juin Livraison à 13, 17 €
Recevez-le vendredi 17 juin Livraison à 15, 83 €
Recevez-le vendredi 17 juin Livraison à 14, 48 € Il ne reste plus que 1 exemplaire(s) en stock. Brosses pour perceuse, meuleuse et décapeur - Outil Maxi Pro. Autres vendeurs sur Amazon 15, 99 € (2 neufs)
Recevez-le mardi 14 juin Livraison à 13, 11 € Il ne reste plus que 10 exemplaire(s) en stock. Autres vendeurs sur Amazon 11, 63 € (6 neufs)
6% coupon appliqué lors de la finalisation de la commande Économisez 6% avec coupon Recevez-le mardi 14 juin Livraison à 11, 36 € Il ne reste plus que 6 exemplaire(s) en stock.
Brosse Nylon Pour Meuleuse Pour
Nos métiers
EDALIS est une conciergerie industrielle par excellence. Nous permettons à nos clients une globalisation de leurs achats en pièces standards et non standards. Nous les accompagnons également dans tous les projets nécessitants des solutions techniques. Une solution personnalisée
Le modèle de conciergerie EDALIS en 4 étapes
ETAPE 1
Etude de votre besoin
ETAPE 2
Transformer votre besoin en livrable (pièces, plan)
ETAPE 3
Produire directement ou via le réseau partenaires EDALIS
ETAPE 4
Livrer dans le respect Qualité Coût Délai
Des milliers de références
Accédez au catalogue! Ajouté! Le produit a bien été ajouté au panier. Votre partenaire industriel
Conciergerie depuis 2005
Un parc machines intégré
Un important réseau de partenaires
Certification et démarche ISO 9001
Bureau d'études intégré
Toujours en quête d'innovations
LE COMPTOIR DU CARBONE
Nos chutes sont issues de tissus et de plaques utilisées notamment par le milieu aéronautique. Brosse nylon pour meuleuse du. C'est pour cette raison qu'EDALIS a décidé de créer le Comptoir du Carbone.
Brosse Nylon Pour Meuleuse Des
tige 6 mm 2608622051 1 pc(s) S76489 10 € 49 jeu de rondelles d'écartement - rondelles d'écartement, 6 pièces - FLEX 8 € 89 9 € 37 Accessoire De Meulage De Meulage De Poncage, Avec Boite De Rangement, 196Pcs 16 € 79 20 € 15 Livraison gratuite 166 pieces de jeu d'accessoires de meuleuse electrique, jeu d'outils de tete de meulage, accessoires de gravure, de polissage et de coupe 23 € 99 28 € 79 Livraison gratuite Brosse À bonnet en nylon 18 € 18 23 € 63 Livraison gratuite Brosse de ventilateur en nylon 20 € 14 26 € 18 Livraison gratuite 337Pcs 1/8?? Shank Outil Rotatif Accessoires Set Poncage De Polissage De Meulage Accessoires 21 € 59 25 € 91 Livraison gratuite 166Pcs 1/8??
Marque BOSCH (4) MAKITA (22) METABO (3) Brosse pour Dcapeur rouleau (MAKITA 9741) (8) Meuleuse 115 mm (2) Meuleuse 125 mm (6) Meuleuse 150 mm (1) Meuleuse 230 mm (4) Meuleuse droite (1) Meuleuse XLOCK (3) Perceuse - Visseuse (8) Satineuse (1)
Dcouvrez notre gamme de brosses pour meuleuses, perceuses filaire ou sans fil, et dcapeur rouleau. Vous trouverez des roues lamelles, des brosses boisseau fils nylon, des brosses circulaires, des brosses en ventails, brosses pinceau fils acier.... Et tous ces produits slectionns parmi les meilleures marques Professionnelles: Makita, Bosch Professionnel....