Pb sélection cellulesRésolu

Question

Bonjour &#224; tous,

Petit pb : je voudrais actualiser diff&#233;rents fichiers &#224; partir de donn&#233;es tir&#233;es d'une base.
Je bosse en vb sur Excel.

Pas de pb pour envoyer ttes info automatiquement dans diff&#233;rents fichiers.

Mais par contre qd ma macro tourne, les donn&#233;es import&#233;es &#233;crasent les anciennes...
Je voudraient qu'elles viennent plut&#244;t se placer derri&#232;res les donn&#233;es import&#233;es pr&#233;c&#233;demment.
Pour cela j'avais pens&#233; &#224; faire demander &#224; ma macro de copier les donn&#233;es de la base &#224; partir de la premi&#232;re ligne vide. Mais ca n'a pas march&#233;...
Est-ce possible?
Si je ne suis pas assez clair, n'h&#233;sitez pas &#224; me demander des pr&#233;cisions.

Merci d'avance.

Emmanuel

valtrase · Accepted Answer

Lut,
Ces modifs devraient r&#233;ssoudre ton prob mais il y a des m&#233;thodes plus efficaces pour arriver au m&#234;me r&#233;sultat.

Workbooks("Base.xls").Activate
Sheets(1).Activate
Dim k As Integer
Dim i As Integer
Dim xlRow As Long
k = 1
i = 1
While Cells(i, 1) <> Empty    If (Cells(i, 1) "XXX") Or (Cells(i, 1) "YYY") Then
        tableau(k, 1) = Cells(i, 1)
        tableau(k, 2) = Cells(i, 2)
        tableau(k, 3) = Cells(i, 3)
        tableau(k, 4) = Cells(i, 4)
        k = k + 1
    End If
i = i + 1
Wend

Workbooks("Base XXX.xls").Activate
Sheets(1).Activate
xlRow = Cells(65536, 1).End(xlUp).Offset(1, 0).Row
For i = 2 To k
    Cells(xlRow + i, 1) = tableau(i, 1)
    Cells(xlRow + i, 2) = tableau(i, 2)
    Cells(xlRow + i, 3) = tableau(i, 3)
    Cells(xlRow + i, 4) = tableau(i, 4)
Next i

End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Lut,
Je pense qu'un UsedRange.Rows.count devrai r&#233;gler ton prob il te renvoi la derni&#232;re ligne utilis&#233;.

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

dp_favresa · Answer

Bonjour,

J'ai souvent besoin d'ins&#233;rer des valeurs apr&#232;s la derni&#232;re ligne non vide, pour cela j'utilise :

Range("xxx").Select        'derni&#232;re ligne de la feuille

Selection.End(xlUp).Offset(1, 0).Select    ' remonter &#224;
1&#232;re ligne non vide puis "offset(1,0)" pour descendre d'une ligne


J'&#233;sp&#232;re que cela te conviendra.


Bon(nes) courage, d&#233;veloppement, salutations...
(choisissez ce qui vous convient)                   dp

cs_emmanuel15 · Answer

Merci.

J'arrive &#224; selectionner la premi&#232;re ligne vide mais les donn&#233;es import&#233;es &#233;crasent quand m&#234;me les anciennes.
Je pense que c'est du &#224; mon code qui ne doit pas &#234;tre appropri&#233; (je ne suis pas pro, indulgeance svp).

Le voici : 

Workbooks("Base.xls").Activate
Sheets(1).Activate
Dim k As Integer
Dim i As Integer

k = 1
i = 1

While Cells(i, 1) <> Empty    If (Cells(i, 1) "XXX") Or (Cells(i, 1) "YYY") Then
        tableau(k, 1) = Cells(i, 1)
        tableau(k, 2) = Cells(i, 2)
        tableau(k, 3) = Cells(i, 3)
        tableau(k, 4) = Cells(i, 4)
        k = k + 1
    End If
i = i + 1
Wend

Workbooks("Base XXX.xls").Activate
Sheets(1).Activate

Cells(65536, 1).End(xlUp).Offset(1, 0).Select

For i = 2 To k
    Cells(i, 1) = tableau(i, 1)
    Cells(i, 2) = tableau(i, 2)
    Cells(i, 3) = tableau(i, 3)
    Cells(i, 4) = tableau(i, 4)
Next i

End Sub

Si vous voyez o&#249; il y a pb, n'h&#233;sitez pas!

Merci.

Emmanuel

cs_emmanuel15 · Answer

Merci Jean-Paul (et &#224; celui qui n'a pas laiss&#233; de nom).

Emmanuel

Pb sélection cellules

5 réponses

Discussions similaires