aide modif macro

[calou68]

Bonjour à tous

J'ai une macro qui copie la valeur des cellules et qui l'insère dans la première ligne vide. voir ci dessous:

Sub copieING()
Range("A2:L500").Select
Selection.Copy
Windows("Suivi hypervision-2.xls").Activate
Range("A" & Range("A65535").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

J'amerai changer la ligne "Range("A2:L500").Select" par une fonction qui me permettrait de sélectionner les lignes non vides (ou il y a du texte ou des chiffres) à copier. J'ai essayé d'utiliser une boucle "SI" mais je suis pas assez expérimenté pour aboutir à une solution viable.

merci pour votre aide

calou

 

[tototiti2008]

Re : aide modif macro

Bonjour calou,

un exemple des données de ta liste pourrait aider

 

[Pierrot93]

Re : aide modif macro

Bonjour,


regarde le code ci-dessous, mais tu risques de rencontrer un problème par la suite pour la copie de sélection multiple...

Range("A2:L500").SpecialCells(xlCellTypeConstants).EntireRow.Select

bonne journée
@+

 

[calou68]

Re : aide modif macro

merci de votre réponse

J'ai un fichier de base que j'alimente en données chaque semaine et que je veux recopier via la macro dans un autre fichier. Cette copie s'incrémentera à la suite des copies précedentes.

le soucis de ma macro c'est quand je copie de la 1èrer fois cela marche bien, quand je copie la 2ème fois elle copie après la ligne 501 et puis après la ligne 1002....., le soucis c'est que j'ai beaucoupo de ligne vide entre chaque copie. C'est pour pour cela que j'aimerai copier seulement les lignes pleines ou non vides.

Pierrot, puir ton code vba, il y a un bug sur "Selection.Copy"


merci à tous

calou

 

[Pierrot93]

Re : aide modif macro

Re,

oui, c'est bien ce que j'avais dit :

mais tu risques de rencontrer un problème par la suite pour la copie de sélection multiple...

 

[Pierrot93]

Re : aide modif macro

Re,

regarde le code ci-dessous, supprime les lignes vides de la feuille active :

Option Explicit
Sub test()
Dim i As Long, c As Range
Set c = Cells.Find("*", , xlValues, , 1, 2, 0)
If Not c Is Nothing Then
    For i = c.Row To 1 Step -1
        If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
    Next i
End If
End Sub

bon après midi
@+

 

[calou68]

Re : aide modif macro

Désolé mais j'ai inséré ton code avec la boucle "si" voir ci dessous mais il va bien sur la feuille "suivi hypervision" et il va dans la case A506 et ne copie rien.... je suis nul

sub ESSAI3()
Dim i As Long, c As Range
Set c = Cells.Find("*", , xlValues, , 1, 2, 0)
If Not c Is Nothing Then
For i = c.Row To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next i
End If
Selection.Copy
Windows("Suivi hypervision-2.xls").Activate
ActiveWindow.SmallScroll Down:=-252
Range("A506").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=6
End Sub

bonne apm ;-)