Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

[Christian0258]

Bonjour à tout le forum,

Je vous souhaite une Bonne et Douce Année 2013 avec, bien sur, la santé.


Je souhaiterais votre aide pour l'écriture d'une macro qui devra placer selon condition, dans la même feuille, des données saisies...

voir fichier joint

Merci pour le temps que vous voudrez bien vouloir m'accorder.


Bien à vous,
Christian

 

[job75]

Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Re,

Bon pour gagner du temps voir la macro Valider du fichier joint avec ceci :

Set P = Intersect(P.EntireRow, [H:I])
Set a = ActiveCell
P.Copy
c(2).PasteSpecial xlPasteValues
c(2).PasteSpecial xlPasteFormats
a.Select
c(2).Resize(P.Count / 2, 2).Borders(xlEdgeTop).Weight = xlThin
c(2).Resize(P.Count / 2, 2).Borders(xlEdgeBottom).Weight = xlThin

Re-horreur et putréfaction, j'utilise un Select 😛

A+

 

[Christian0258]

Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Re, le forum, job75,

Merci pour la modif, mais je n'avais rien modifier dans ta macro...pas les conpétences pour...lol

Bien à toi.

Merci, job75, pour tout...

Christian

 

[job75]

Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Re,

Comme je suis définitivement allergique aux Select :

P.Copy c(2) 'pour les formats (et la 2ème colonne)
For Each r In P.Rows
  n = n + 1
  c(n + 1) = r.Value
Next

Fichier (2).

A+

 

[job75]

Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Merci pour la modif, mais je n'avais rien modifier dans ta macro...pas les conpétences pour...lol

Pourtant dans la macro Valider du post #4 c'est bien toi qui a ajouté :

Range("I5:I24").Select
Selection.ClearContents
Range("i4").Select
Application.CutCopyMode = False

Ce code n'existe pas dans ma macro du post #2 🙂

A+

 

[Christian0258]

Re : Macro pour placer des saisies sur même feuille, si H3 égal Midi colonnes ...

Re, le forum, job75,

Méaculpa, tu as raison, en regardant ta macro d'origine, c'est bien moi qui est rajouté ce bout de code, sûrement pour ne pas te déranger à nouveau...

Je te prie de bien vouloir m'excuser.

Bien à toi,
Christian