Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

programme vba lancé par macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion polyteis
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

polyteis

XLDnaute Occasionnel
Bonjour à toutes et tous

j'ai un fichier contenant 2 onglets.
l'onglet INFO, dans lequel je place les résultats d'une extraction , avec en dernière colonne un test, au fur et à mesure que les semaines passent ce fichier va s'allonger, en nombre de lignes.
j'aimerai que dans l'onglet TAB, s'inscrivent quand j'appuie sur un bouton de commande, toutes les lignes de l'onglet INFO, dont le résultat sera symbolisé par l'émoticone souriant.


Merci pour vos réponses
 

Pièces jointes

Trier par date Trier par votes
Re : programme vba lancé par macro

bonjour,

je suis resté sur la première version avec les 2 possibilités.
cela fonctionne correctement.
tu as sans doute remarqué que l'extraction se fait mois par mois.
Est il possible de faire une macro activée par un bouton qui efface toutes les données des 60 feuillets ( sauf évidement les feuillets liste et infdep56) et ce à partir de la ligne 12 jusqu'à .... ( chaque feuillet n'a pas obligatoirement le même nombre de lignes renseignées).pour simplifier on peut faire de 12 à 100 ( je modifie si j'ai un feuillet ayant plus de lignes).
je me doute qu'un puriste comme toi veux quelque chose qui fonctionne plus que bien, et non du bricolage.

encore merci
 
Vote positif 0 Vote négatif
Re : programme vba lancé par macro

Re-bonjour,

voici:
Code: 
Sub Vider_feuilles()
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "INFDEP56" And Sheets(i).Name <> "Liste" Then
        Sheets(i).Range("A12:BX" & Sheets(i).Range("B1048576").End(xlUp).Row + 1).ClearContents
    End If
Next i
End Sub
à+
Philippe
 
Vote positif 0 Vote négatif
Re : programme vba lancé par macro

bonsoir,
je te sollicite de nouveau.
je t'ai mis le fichier avec toutes les explication dans un cadre texte.

en un mot c'est une histoire de boucle pour déceler des incohérences

merci pour ton aide
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Résolu(e)
Microsoft 365 Simplification de code
2 3
Réponses
32
Affichages
1 K
Rheeem
R
E
  • Question Question
LibreOffice Calc Recherche sur plusieurs onglets pour constituer un tableau
Réponses
0
Affichages
314
evindi
E
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
623
anthoYS
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
1 K
loloboc
L
O
  • Question Question
XL 2016 Erreur d'exécution 32809 Erreur définie par l'application ou par l'objet
Réponses
0
Affichages
468
Oddoneju
O
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
851
Lu76Fer
  • Résolu(e)
Microsoft 365 Ajout d'onglet par VBA et entête de colonnes
2
Réponses
17
Affichages
2 K
Roseline
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
2 K
mapomme
A
  • Résolu(e)
Microsoft 365 Copier la même cellule de plusieurs onglets dans différentes colonnes
2
Réponses
23
Affichages
2 K
AlexiaC
A
M
  • Résolu(e)
Microsoft 365 Gestion numéros de pages du classeur dans une cellule
2
Réponses
16
Affichages
2 K
sousou
L
  • Résolu(e)
XL 2016 Problème liaison USF vers tableau et inversément
Réponses
1
Affichages
637
Ludo G
L
  • Question Question
XL 2010 fonction vlookup réticente ? (vba) [RESOLU]
2 3
Réponses
34
Affichages
3 K
TooFatBoy
J
  • Résolu(e)
Microsoft 365 macro effacement sélection cellules
2 3 4
Réponses
55
Affichages
4 K
Phil69970
E
  • Résolu(e)
Microsoft 365 Conception d'un outils alliant faciliter d'utilisation et optimisation de la RAM/Processeur/Espace Disque
Réponses
6
Affichages
940
elgringo123456
E
W
  • Question Question
XL 2016 Transfert de 2 colonnes sans formules et duplication des cellules selon le nbre de fois indiqué en colonne L
Réponses
9
Affichages
837
Webperegrino
W
F
  • Résolu(e)
XL 2021 Souci de Macro qui créé des doublons
Réponses
7
Affichages
1 K
fanou06
F
C
  • Question Question
Microsoft 365 macro vba sumifs
Réponses
5
Affichages
750
Cece@
C
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
787
job75
B
  • Question Question
XL 2016 Macro BVA pour créer une synthèse à partir de plusieurs onglets Excel
Réponses
6
Affichages
1 K
bnolwalid
B
A
  • Question Question
XL 2013 Liaisons de données externes avec un fichier contenant un mot de passe
Réponses
14
Affichages
1 K
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…