rangement

[paula]

bonjour et bon dimanche

qui p me venir en aide pour le rangement d'un tableau par macro

merci merci

 

[Hervé]

Bonsoir

voir en pièce jointe

Public Sub vev()
Dim c As Range
Dim ligne As Integer, colonne As Range

With Sheets("feuil2")
For Each c In Range("c7:c" & Range("c65000").End(xlUp).Row)
ligne = 13
Set colonne = .Range("c6:n6").Find(c.Value)
While .Cells(ligne, colonne.Column) <> ""
ligne = ligne - 1
Wend
.Cells(ligne, colonne.Column) = c.Offset(0, 1)
.Cells(ligne, colonne.Column + 2) = c.Offset(0, 2)
Next c
End With
End Sub

Salut
Hervé

 

[Nanard]

Bonsoir ,

Autre solution

Avec la fameuse fonction RECHERCHEV qui s'appplique dans de nombreuses circonstances

@+

Nanard

 

[paula]

Merci herve et Nanard

la version d'herve me semble la plus simple pour moi
mais juste un petit truc quand je clic une 2 fois il remet haut dessus je voudrai quil ecrase les premiere donner en ligne 13

merci encore pour votre aide et bonne soiree

 

[Hervé]

re

rajoute : .Range("c7:n13").ClearContents

après le : With Sheets("feuil2")

salut
Hervé

 

[paula]

merci je fait et je te dit quoi
bisous

 

[paula]

HERVE donc voila apres essai ça marche bien
sauf un petit truc en faite je voudrai ne pas effac toute les données m seul celle qui son mis quand je clic sur le bouton
ou voir si possible de faire monté les infos dans le tableau jusq en haut et l'effacer quand on arrive en haut du tableau

merci pour ton aide s super cool

 

[Dan]

Bonsoir,,

La suite du message se trouve ici : ---> <http://www.excel-downloads.com/html/French/forum/messages/1_141479_141479.htm>

@+ dan