copie model tableau selon condition

[Ilino]

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

 

[mapomme]

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".

 

[Ilino]

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

 

[mapomme]

Re : copie model tableau selon condition

Bonsoir Ilino,

[...] mais est ce qu'il ya une possibilité de copier meme les formules du premier Tableau [...]

😕 je n'ai pas vu de formule dans le premier tableau (colonnes AX à BA) de la feuille "FGP 2014"

 

[Ilino]

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

 

[Ilino]

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"

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+

 

[Ilino]

Re : copie model tableau selon condition

Bonjour Forum
puis je avoir votre HELP
A+

 

[Ilino]

Re : copie model tableau selon condition

Forum Bonjour
je relance ma demande (please) est ce que il y a une solution a mon souci ??
GRAZIE

 

[mapomme]

Re : copie model tableau selon condition

Re,

[...] 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[...]

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 ?

 

[Ilino]

Re : copie model tableau selon condition

Re,





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

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

 

[mapomme]

Re : copie model tableau selon condition

Re,

Essayer le code suivant:

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

 

[Ilino]

Re : copie model tableau selon condition

Re,
Supper ça fonctionne nickel
grazie MAPOMME😎
Pblm resolut
A+

 

[Ilino]

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 ????

....
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

 

[Ilino]

Re : copie model tableau selon condition

Re
puis je avoir des indices a quel niveau (dans le code) je change les cellules qui contiennent des formules ?
merci&grazie

 

[Ilino]

Re : copie model tableau selon condition

Re
on attendant MAPOMME arrive
je pense que la solution est ( reste a confirmer)

'xrg.Offset(3).Resize(227, 3).ClearContents
 xrg.Offset(2).Resize(227, 2).ClearContents

et

'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