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

copie model tableau selon condition

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Ilino
  • 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

Ilino

XLDnaute Barbatruc
Bonsoir Forum
encore une fois je vous solicite pour un autre souci ( en VBA)

Dans la feuille « Facturation » si je fais rentrer une nouvelle date dans la colonne « Date d’arrivée », je souhaite avoir une copie ou une nouvelle plage comme (AX-BA) avec ces formules dans la feuille « FGP 2014 » et ainsi de suite a chaque nouvelle date dans le tableau de la feuille Facturation j’aurai un nouveau tableau adjacent dans la feuille FGP 2014
GRAZIE
 

Pièces jointes

Trier par date Trier par votes
Re : copie model tableau selon condition

Bonjour Ilino,

Un essai dans le fichier joint. Il faut au minimum la présence du premier tableau sur la feuille "FGP 2014".

Le code est dans le module de la feuille "Facturation".
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copie model tableau selon condition

Bonjour Forum , Bonjour MAPOMME
grazie c'est nickel mais est ce qu'il ya une possibilité de copier meme les formules du premier Tableau
GRAZIE
 
Vote positif 0 Vote négatif
Re : copie model tableau selon condition

Re Mapomme
oui tu as raison je n'ai pas mets des formelles dans la colonne " Reste a payer" =montant global - montant a payer
j'ai sup la formule ( erreur de ma part) sorry

A+ et BW
 
Vote positif 0 Vote négatif
Re : copie model tableau selon condition

Bonsoir forum, mapomme
dans mon application avec d'autre code j'ai trouvé ce type d'erreur
"Erreur d'execution'-2147024809 (80070057)'
l'élémentant portant ce nom est introuvable"
et il me renvoie le code de la feuille "FGP 2014"

With ActiveSheet.Shapes("CommandButton109"

Code: 
Private Sub Worksheet_selectionChange(ByVal c As Range) 'Déplacer le bouton avec la feuille
With ActiveSheet.Shapes("CommandButton109"
    .Top = c.Top - 25
    .Left = c.Left + 150
End With

With ActiveSheet.Shapes("CommandButton15")
    .Top = c.Top - 25
    .Left = c.Left + 195
End With
end sub
A+
 
Vote positif 0 Vote négatif
Re : copie model tableau selon condition

Re,

Ilino à dit:
[...] oui tu as raison je n'ai pas mets des formelles dans la colonne " Reste a payer" =montant global - montant a payer [...] j'ai sup la formule ( erreur de ma part) sorry[...]
Cliquez pour agrandir...

1) Version v2 qui conserve la formule de la colonne "Rest a payer"

2) second problème: pas d'idée si ce n'est: est ce que l'objet "CommandButton109" existe bien ?
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copie model tableau selon condition

mapomme à dit:
Re,





2) second problème: pas d'idée si ce n'est: est ce que l'objet "CommandButton109" existe bien ?
Cliquez pour agrandir...

Bonsoir MAPOMME
MERCI POUR LA REPONSE
CONCERNANT LE 2 EME SOUCI CI RATTACHE LE FICHIER EXEMPLE
GRAZIE
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copie model tableau selon condition

Re,

Essayer le code suivant:
VB: 
Private Sub Worksheet_selectionChange(ByVal c As Range) 'Déplacer le bouton avec la feuille
  If ActiveSheet.Name = "FGP 2014" Then
    With ActiveSheet.Shapes("CommandButton1")
      .Top = c.Top - 25
      .Left = c.Left + 150
    End With
    With ActiveSheet.Shapes("CommandButton2")
      .Top = c.Top - 25
      .Left = c.Left + 195
    End With
  End If
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : copie model tableau selon condition

Re Bonsoir Forum
dans ce fichier joint j'ai essayé de adapter la solution MAPOMME( je tien a le remercie infiniment)
j'ai modifier le tableau ( model) de la feuille FGP 2014
1. J ai changé la largeur du tableau " .. .Range("AX27:BC228").Copy xrg.." => c ok
2. j ai ajouter des colonnes (3eme COLONNE ,5eme et 6eme colonnes)avec des formules (Cellule bleux) => c Ko
Voila MAPOMME donc je me suis bugé a ce niveau 2 ????
Code: 
....
Set xrg = .Cells(27, Columns.Count).End(xlToLeft).Offset(, 2)
            .Range("AX27:BC228").Copy xrg
            xrg.Offset(3).Resize(227, 3).ClearContents
            xrg.Offset(1) = Target.Value
            xrg.Resize(, 4).EntireColumn.AutoFit
            xrg.Parent.Activate: xrg.Select
.....
Grazie d'avance
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : copie model tableau selon condition

Re
on attendant MAPOMME arrive
je pense que la solution est ( reste a confirmer)
Code: 
'xrg.Offset(3).Resize(227, 3).ClearContents
 xrg.Offset(2).Resize(227, 2).ClearContents
et
Code: 
'xrg.Resize(, 4).EntireColumn.AutoFit
xrg.Resize(, 6).EntireColumn.AutoFit
maintenant il me reste les largeurs des cellules qu'elles soient identique au tableau de base ????
grazie
 
Dernière édition:
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

P
  • Résolu(e)
XL 2021 masquage de ligne selon condition
2
Réponses
17
Affichages
611
sylvanu
S
  • Résolu(e)
Microsoft 365 Affecter un numéro selon une condition
Réponses
7
Affichages
303
Sissou71
S
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
903
job75
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
384
ChTi160
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
487
Yogean
Y
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
459
caseras
C
C
  • Question Question
Microsoft 365 Déplacer une ligne sous condition
Réponses
5
Affichages
340
CB7
C
E
  • Résolu(e)
Microsoft 365 TS Copie ligne selon condition
Réponses
6
Affichages
299
eric72
E
A
  • Résolu(e)
Microsoft 365 VBA_Copier coller selon des critères dans deux menus déroulants
Réponses
6
Affichages
346
Altfkat
A
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
865
Max
M
A
  • Résolu(e)
XL 2019 VBA - Copie données selon 3 critères
Réponses
4
Affichages
490
abouilies
A
  • Résolu(e)
Microsoft 365 Calculer une date projetée évolutive selon des heures cumulées (période d’essai)
Réponses
4
Affichages
213
3xceln4ute
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
826
Max
M
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
408
vgendron
R
  • Résolu(e)
XL 2016 Créer un .doc à partir des données d'un tableur
Réponses
9
Affichages
618
job75
C
  • Résolu(e)
XL 2016 VBA : inversion de Date sur Range.Resize ... = Tableau après Transpose du Tableau
Réponses
2
Affichages
327
crocrocro
C
A
  • Résolu(e)
Microsoft 365 VBA filtre erreur si pas la condition
Réponses
3
Affichages
381
Ang3lina
A
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
343
olivier Clech
O
R
  • Question Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
889
Renaud22
R
  • Question Question
Power Query Data Model - renvoyer le résultat d'une requête PQ sans passer par une feuille
Réponses
11
Affichages
740
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…