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


merci beaucoup, cela fonctionne bien.
j'ai rebaptisé le bouton, et les noms des onglets et cela fonctionne toujours

Pouvez vous m'expliquez les 2 lignes suivantes :
Range("B12:J" & Range("B65535").End(xlUp).Row + 1).ClearContents
derligne = Range("B65535").End(xlUp).Row + 1


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

Re,
polyteis à dit:
Pouvez vous m'expliquez les 2 lignes suivantes :
Range("B12:J" & Range("B65535").End(xlUp).Row + 1).ClearContents
derligne = Range("B65535").End(xlUp).Row + 1
Cliquez pour agrandir...

le demande était:
au fur et à mesure que les semaines passent ce fichier va s'allonger, en nombre de lignes.
Cliquez pour agrandir...
étant donné l'allongement hebdomadaire, la feuille destinée à recevoir les données est vidée à chaque utilisation de la macro dans le but d'éviter de re-re-re-remettre des lignes qui ont déjà été transférées auparavant
Range("B12:J" & Range("B65535").End(xlUp).Row + 1).ClearContents
la procédure s'allonge d' une fraction de seconde; c'est imperceptible

derligne = Range("B65535").End(xlUp).Row + 1 pour calculer le numéro de ligne de destination

à+
Philippe
 
Vote positif 0 Vote négatif
Re : programme vba lancé par macro

bonjour et encore merci,
Ta fonction fonctionne bien,
je l'ai dupliqué pour qu'elle analyse toujours le même onglet "tb", et recherche la valeur j.
cette valeur est en colonne 10,11, et 12.

With Sheets("INFO")
For i = 3 To .Range("A6535").End(xlUp).Row
If .Cells(i, 10) = "J" Then
.Range(.Cells(i, 1), .Cells(i, 9)).Copy Destination:=Sheets("tb").Cells(derligne, 2)
derligne = derligne + 1
End If
Next i
End With

dans ton exemple valable pour la colonne 10, tu copies tous les éléments de la ligne sélectionnée jusqu'à la colonne 10,
comment faire pour l'analyse colonne 11
ou je désire l'affichage tous les éléments de la ligne sélectionnée jusqu’à' la colonne 9 et le résultat de la colonne 11
et même principe pour l'analyse 12.

ma seconde interrogation est la suivante For i = 3 To .Range("A6535").End(xlUp).Row
on doit lire A6535 ou A65535


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

Re-Bonjour,

If .Cells(i, 10) = "J" Then
Cliquez pour agrandir...
ci-dessus, le test s'effectue sur la colonne 10
il suffit de remplacer 10 par le numéro de la colonne dans laquelle on veut faire le test

.Range(.Cells(i, 1), .Cells(i, 9)).Copy Destination:=Sheets("tb").Cells(derligne, 2)
Cliquez pour agrandir...
dans la ligne ci-dessus, on copie les données de la ligne jusqu'à la colonne 9 si tu veux copier au-delà,
Cells(i, 9).Copy
Cliquez pour agrandir...
il suffit de modifier le 9

comment faire pour l'analyse colonne 11
Cliquez pour agrandir...
il suffit de remplacer 9 par 11 dans ----> If .Cells(i, 10) = "J" Then

on doit lire A6535 ou A65535
Cliquez pour agrandir...
c'est une vieille habitude qui a été prise, en fait sur la version Excel 2003, chaque feuille pouvait contenir 65536 lignes
la version Excel 2007 va jusqu'à 1048576 lignes

à+
Philippe
 
Dernière édition:
Vote positif 0 Vote négatif
Re : programme vba lancé par macro

bonsoir,

j'avais compris le principe de ta fonction, je l'ai bien adapté.
Dans mon nouveau dossier j'ai 4 onglets INFO - tb - tb1 - tb2
avec ta macro adaptée dans chacune des feuilles tb, tb, tb2

je pense que je me suis mal exprimé, donc je retente :

résultat attendu pour l'analyse du j en colonne 10 du fichier info
c'est le transfert des colonnes ( a, b,c,d,e, f,g,h,i,j) sur le l'onglet tb à partir de la colonne B12,
cela fonctionne

résultat attendu pour l'analyse du j en colonne 11 du fichier info
c'est le transfert des colonnes ( a, b,c,d,e, f,g,h,i,k) sur l'onglet tb1 à partir de la colonne B12

résultat attendu pour l'analyse du j en colonne 12 du fichier info
c'est le transfert des colonnes ( a, b,c,d,e, f,g,h,i,L) sur l'onglet tb2 à partir de la colonne B12

****************************
est que je peux remplacer dans ta fonction la valeur 65535 par 1048576

merci de prendre du temps pour moi
 
Vote positif 0 Vote négatif
Re : programme vba lancé par macro

Re,

Code: 
Private Sub CommandButton1_Click()
Sheets("tb").Range("B12:K" & Sheets("tb").Range("B65535").End(xlUp).Row + 1).ClearContents
Sheets("tb1").Range("B12:K" & Sheets("tb1").Range("B65535").End(xlUp).Row + 1).ClearContents
Sheets("tb2").Range("B12:K" & Sheets("tb2").Range("B65535").End(xlUp).Row + 1).ClearContents
With Sheets("INFO")
    For i = 3 To .Range("A1048576").End(xlUp).Row
        If .Cells(i, 10) = "J" Then
            derligne = Sheets("tb").Range("B1048576").End(xlUp).Row + 1
            .Range(.Cells(i, 1), .Cells(i, 9)).Copy Destination:=Sheets("tb").Cells(derligne, 2)
            .Cells(i, 10).Copy Destination:=Sheets("tb").Cells(derligne, 10)  ' copie de la cellule en colonne J
        End If
        If .Cells(i, 11) = "J" Then
            derligne = Sheets("tb1").Range("B1048576").End(xlUp).Row + 1
            .Range(.Cells(i, 1), .Cells(i, 9)).Copy Destination:=Sheets("tb1").Cells(derligne, 2)
            .Cells(i, 11).Copy Destination:=Sheets("tb1").Cells(derligne, 10)  ' copie de la cellule en colonne K
        End If
        If .Cells(i, 12) = "J" Then
            derligne = Sheets("tb2").Range("B1048576").End(xlUp).Row + 1
            .Range(.Cells(i, 1), .Cells(i, 9)).Copy Destination:=Sheets("tb2").Cells(derligne, 2)
            .Cells(i, 12).Copy Destination:=Sheets("tb2").Cells(derligne, 10)  ' copie de la cellule en colonne K
        End If
    Next i
End With
MsgBox ("La répartition est terminée")
End Sub


voir fichier joint

à+
Philippe
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : programme vba lancé par macro

bonsoir,

j'ai essayé de t'imiter en adaptant ta toute première macro , mais cela bug, .....

c'est toujours le même principe je dispos d'un onglet contenant une extraction et je tente de distribuer, repartir l'ensemble des données contenus dan le tableau sur différents onglets
ici dans l'avenir, je disposerai :
d'un onglet nommé INFDEP56
et de 60 onglets nommé de SO01 à SO60

le principe, testé la condition du centre financier et transférer la ligne si le test est vrai
ex:
je teste dans le fichier infdep56 la valeur SO09, si c'est bon je transfert la ligne dans l'onglet SO09
je pense à un bouton par onglet SOxx

si tu peux me faire un exemple de macro, que j'adapterai sur chacune des 60 feuilles

un grand merci d'avance
 

Pièces jointes

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

Re- bonjour
je teste dans le fichier infdep56 la valeur SO09, si c'est bon je transfert la ligne dans l'onglet SO09
Cliquez pour agrandir...
cette valeur SO09, il faut la tester par rapport à quoi ?????


je pense à un bouton par onglet SOxx
Cliquez pour agrandir...
Quelle complication !!!!!!!!!!!!!!!!!!!!!!! 😕



voir fichier joint

à+
Philippe
 

Pièces jointes

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

bonjour

merci de te penser sur ce probleme
le but est le suivant
dans une extraction, il y aura les 60 centre financiers ( s001 à so60)
je désire rapatrier dans chacun des onglets les lignes complète correspondant a leur centre

j'imagine que tu vois une seule macro qui réparti tranquillement les données
j'ai peur que cela soit lent ,....................
et je ne veux pas que tu te "tapes" à écrire les 60 boucles ........

c'est déjà plus que sympa de te penser sur mes demandes.
 
Vote positif 0 Vote négatif
Re : programme vba lancé par macro

Re,
j'imagine que tu vois une seule macro qui réparti tranquillement les données
j'ai peur que cela soit lent ,....................
et je ne veux pas que tu te "tapes" à écrire les 60 boucles ........
Cliquez pour agrandir...
une autre manière de procéder ........ sans pour autant se taper les 60 boucles

à+
Philippe

Edit:
je serai absent jusqu'à lundi
 

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…