copier coller

[henri]

Bonjour a tous, je travaille avec excel XP sous window 98.
j'ai réalise un fichier avec 2 feuilles nommé une commande du jour, l'autre base de donnée. Sur ma feuille commande du jour les cellules A1050 sont utilisée pour saisir ma commande. Je copie ensuite la Valeur des lignes utilisée(de la 10 à la derniere lignes contenant des données) dans la feuille base de donnée.Je colle dans la feuille base de donnée a la suite chaque jour de commande me permettant ensuite de visualise grace aux filtres toutes les statistiques.peu t'on réalisé une macro pour automatisé ce copier coller de la valeur ?????

Merci de votre attention

A plus tard

 

[yoco]

je voudrais faire pareil pour les colonnes
puis faire un mixage colonnes lignes mais ma formule pour les colonnes st fausse .Que faire?


Private Sub CommandButton2_Click()
Dim L, i, k As String
Dim ws1, ws2 As Worksheet
Set ws1 = Sheets("jour") 'Définition d'une feuille
Set ws2 = Sheets("base de donnée")
L = ws1.Range("IV").End(xlUp).Column ' on récupère la dernière ligne de la feuille jour
k = ws2.Range("IV").End(xlUp).Column
For i = A To L
ws1.Columns(i).Copy Destination:=ws2.Columns(k + 1) 'on copie ligne par ligne
k = k + 1 'on incrémente k pour pouvoir passer à la ligne suivante dans base de donnée
Next i


End Sub

merci

 

[Malangou SEYADOU]

Voici une procedure qui te permet de faire du copier/coller avec format.

----------------------------------------------------
Public Sub CopierColler()
Dim MonString As String, FoundCell As Range, Adr As String
Dim LeString As Variant, Compteur As Long, Pos As Integer

MonString = InputBox(Prompt:= _
"Chaîne recherchée." & vbCrLf & "Ex: copier juste : Données!TT", _
Title:="Rechercher et Remplacer")
If MonString = "" Then Exit Sub

LeString = Application.InputBox(Prompt:= _
"Valeur de remplacement pour cette chaîne: " _
& """" & MonString & """", _
Title:="Remplacer par")
If LeString = "Faux" Then Exit Sub

Columns("C:H").Select
Selection.Replace What:=MonString, Replacement:=LeString, LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, MatchByte:=False
Range("A1").Select

MsgBox " Remplacements effectué avec succès "
End Sub
---------------------------------------------------------------------------------

Bon courage

Malangou
@+