Tableau

[Domi]

Bonjour à tous et merci d'avance pour vos réponses.

Voila mon problème!

Sur ma feuille 1 g créé une sorte de fiche renseignement, que tous les champs son rempli une macro copie et colle sur la feuille 4 les cases A1, A2, A3 et A4 je me retrouve donc avec un tablo sur la feuille 4.

Mon soucis c que quan jajoute plusieur fiches mon tablo se déclasse c a dire que pour le client X g le telephone de Mr Y et vice versa! commen faire pour que mon tablo ne se déclasse pas sil vou plé ??

Merci encore ...

 

[zon]

Salut Domi,


Tu devrais mettre le code de ta macro copiecolle dans le post pour voir d'où vient le PB ou insère un fichier exemple..



A++

 

[Domi]

Je joins la macro :

Private Sub CommandButton4_Click()
Sheets("Modele").Activate
If Range("B5").Value = "" Or Range("E5").Value = "" Or Range("E7").Value = "" Or Range("H5").Value = "" Or Range("B7").Value = "" Or Range("H7").Value = "" Or Range("E11").Value = "" Or Range("H11").Value = "" Or Range("K15").Value = "" Or Range("F19").Value = "" Or Range("e23").Value = "" Then
reponse = MsgBox("Tous les champs sont remplis la peut être ?", vbCritical, "Attention")
Unload Me
Exit Sub
Else
Sheets("Tableau").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Sheets("Modele").Range("B5").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("E5").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("H5").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("B7").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("E7").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("H7").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("E11").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("H11").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("a40").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("K15").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("d28").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f29").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f30").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f31").Value

ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f32").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f33").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f34").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f35").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f36").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f37").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f38").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f39").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f40").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f41").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f42").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f43").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f44").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f45").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f46").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("Modele").Range("f47").Value
Range("A3:C65536").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
Sheets("Modele").Select
Range("a1").Select
End If
Set modèle = ThisWorkbook.Worksheets("Modele")
Dim creation As Integer
creation = MsgBox("ETES VOUS CERTAINS ?", vbOKCancel)
If creation = vbCancel Then Range("b5").Select Else
If creation = vbOK Then modèle.Copy After:=modèle
ActiveSheet.Name = Range("e11")
Sheets("Modele").Select
Range("B5,E5,H5,B7,H7,E11,H11,K15,g28,c28,d28").Select
Range("D31,B36") = 1
Range("E31,E32,E33,E34,E35,E36,E37,E38,E39,E40,E41,E42,E43,E44,E45,E46,E47") = FAUX
Selection.ClearContents
Range("a1").Select
Sheets("accueil").Select
Unload Me
End Sub

voili voilou !!! et merciii

 

[zon]

Ok DOMI,


Je regarde cela dans la journée, j'ai un peu de boulot....


A++

 

[Domi]

ok merciii bocou jen é vachement besoin !!!

 

[zon]

Resalut j'ai allégé ton code et j'ai essayé de reconstruire un fichier mais bon le mieux c'est de m'envoyer dans ma BAL le fichier en question car tu une USF....



A+++

 

[zon]

Resalut Domi,



L'erreur vient du tri, tu selectionnes que 3 colonnes,

il faut remplacer

Range("A3:C65536").Select par Range("A3:AD65536").select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom




A+++