BP pour ajouter des données dans un tableau
Bonjour à tous,
Je souhaite savoir si vous auriez un programme permettant que lorsque j’appuie sur mon BP "Ajouter", les infos T1 T2 T3 et TOTAL des lignes contenants un "x" dans la colonne F, viennent s'insérer dans le tableau bleu ?
Merci d'avance pour vos réponses.
Bonjour,
Pourquoi une macro?
Disposant de 365, vous avez accès aux dernières fonctions type "Filtre", etc...
Cependant, travailler sur une image, ça n'apportera rien... Mettre un fichier exemple, par contre....
Bonjour,
Je préfère passer par une macro pour avoir une donner brut, plutôt qu'utiliser la fonction "=Filtre". De plus, ça pourra me servir sur d'autres fichiers à l'avenir..
J'ai inclus le fichier dans cette réponse.
Hello,
Un exemple pour T1 : =FILTRE(A2:A39;F2:F39="X")
@+
Edit : d'accord avec cousinhub, mieux d'utiliser la fonction directement
Bonjour,
Le problème c'est quad utilisant cette fonction, le tableau droit doit être aussi grand que celui de gauche, ce qui n'est pas le but..
De plus, il faudrait vraiment que ça passe par un bouton, pour que cela reste manuel
Hello,
Je te propose ça
Pour le vba, quelqu'un d'autre le fera sûrement :)
@+
Re-,
As you want....
Sub Transfert()
With Sheets("Feuil1")
.Range("R1") = .Range("F1"): .Range("R2") = "x"
Range("Tableau6[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=.Range("R1:R2"), CopyToRange:=Range("Tableau3[#Headers]"), Unique:=False
.Range("R1:R2").Clear
End With
End SubPS, Il est tout à fait inexact de dire que le tableau de droite doit être aussi grand que celui de gauche, il suffit de ne pas utiliser de Tableau Structuré.
Et en I2, cette formule :
=FILTRE(Tableau6[[T1]:[TOTAL]];Tableau6[Selection]="x")Mais c'est vous qui voyez...
Bon courage
Merci pour vos réponses à tous les deux.
Concernant le programme, il ne fonctionne pas.. Il écrit toutes les données sans les filtrer avec le "X"..
Je ne comprends pas le
.Range("R1") = .Range("F1"): .Range("R2")Hello,
Le fichier avec la macro de cousinhub, t'as juste à cliquer sur le bouton bleu
@+
Re-,
Ce code est base sur le filtre avancé, ou "AdvancedFilter".
Le principe, on prend pour base le Tableau6, Filtre/Filtre Avancé, vers un autre emplacement. Et pour ce faire, on met un critère.
Ici, je recopie le titre de la colonne F en colonne R (F1 -> R1). Et je met la condition "x" en R2.
En déclenchant le filtre élaboré, Excel vérifie la condition, et recopie les données correspondantes dans le Tableau3[En-têtes] (qui doit avoir exactement les mêmes En-Têtes que le Tableau6.
Et dans ta dernière réponse, tu parles d'un "X" et non d'un "x"...Pas pareil...
Bonjour,
Le programme fonctionne correctement.
Merci à tous pour vos réponses enrichissantes !
Bonne journée, et à bientôt pour de nouveaux défis :)
Hello,
Pour être purement honnête le vote de résolution du sujet ne doit pas me revenir.
Rendons à César ce qui appartient à César, ici notre ami de Montmirail
@+