Positionnement de formule et plage de données

[degap05]

Bonjour le forum,

Dans le fichier joint, une macro du forum, permet de concaténer les données et de les copier vers le bloc note.
Si vous essayez, il faudra créer un répertoire NtDisp et un sous répertoire Portable dans C.

Le fonctionnement est bon, sauf lorsqu'il n'y a qu'une ligne à traiter.
Si vous actionnez la macro il n'y aura rien de copié, si vous dupliquez la même ligne, les données des deux lignes ou plus seront copiées.

J'ai marqué l'endroit du problème dans la macro, mais j'ai beau changer les coordonnées des cellules je n'arrive pas à copier, soit une seule ligne, soit plusieurs.

Merci si vous pouvez regarder.
A+

 

[Modeste]

Re : Positionnement de formule et plage de données

Salut degap05, le reste du forum,

Je ne suis pas un spécialiste en la matière, mais il me semble qu'en modifiant uniquement la partie en rouge:

With .Range("H2:H" & .Range("A65536").End(xlUp).Row)
    '--------------------------------------------
            [COLOR="Red"]If ThisWorkbook.Sheets(1).Range("G3") <> "" Then [/COLOR].FillDown
            .Calculate
            .Copy
            WkDat.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues
            .ClearContents

... ça devrait fonctionner (en tout cas ça fonctionne chez moi).
Bon, d'accord, ce n'est certainement pas un modèle d'orthodoxie vba, mais c'est tout ce que j'ai en stock, en ce qui me concerne !

Modeste

 

[degap05]

Re : Positionnement de formule et plage de données

Bonjour Modeste,

Merci pour ta proposition, je l'essaie tout de suite.

A+

 

[degap05]

Re : Positionnement de formule et plage de données

Re-bonjour Modeste,

En effet cela fonctionne très bien.
Quant à l'orthodoxie, peut-être qu'un puriste pourra améliorer la syntaxe ?

Merci.

A+