re paula

[paula]

bonjour le forum et merci herve pour ta macro

je voudrai faire une petite modiff sur cette macro
a chaque fois que je clic il me rajoute les info o dessus je cherche comment
faire pour remplacer a partir de la ligne 13 les infos

merci

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

 

[Dan]

Bonjour,

Pourquoi ne restes-tu pas sur le même fil ? Avec celui-ci, je vois 3 fils sur le même sujet !
Non, ce n'est parce que tu postes ton pb plusieurs fois que tu auras une réponse plus rapide. En pratiquant de cette manière, tu n'aides pas le forum et ceux qui veulent profiter de ton problème. De plus, pas facile de te suivre dans ton pb.

Merci de lire la charte : <http://www.excel-downloads.com/html/French/CharteXLD.php>

Pour le suivi :
<http://www.excel-downloads.com/html/French/forum/messages/1_141395_141395.htm>
<http://www.excel-downloads.com/html/French/forum/messages/1_141342_141342.htm>

Bon malgré tout j'en parlerai à Hervé ce soir sur le T'chat.

@+ Dan

 

[Hervé]

bonjour

J'ai vu tes post, donc évite de les doubler.

Par contre j'ai pas compris ce que tu voulais faire :

pour remplacer les valeurs utilise : range("c7:n13").clearcontents

pour "empiler" les valeurs aggrandit ton tableau : ligne=13, correspond à la ligne ou doit commencer à être mis les valeurs, modifie cette ligne.

Si je n'a toujours pas compris, met une pièce jointe.

Salut
Hervé

 

[Hervé]

re

salut dan, belle intervention.

Bye
Hervé

 

[paula]

mille escuse pour le 2em poste
voir piéce jointe
merci de votre aide je me ronge oupsss

 

[paula]

OUI mais tu me donne pas de reponse a mon probléme
lol

 

[Hervé]

re

.range("c7:n13").clearcontents, je pense est la meilleur solution pour toi,

ceci te permet de garder à jour tes valeurs sans en plus être limité par la ligne 7, puisque tu n'y arrivera pas (à la ligne 7).

Salut
Hervé