S
Steph73
Guest
Bonjour a tous et toutes,
J’ai un problème que je n’arrive pas à résoudre, qui se produit a chaque fois que j’utilise ma macro.
Voici son descriptif je possède un classeur comportant deux feuilles (A et B) sur la A mes formules (5 colonnes de A:E de 2000 lignes) chaque cellules comportent la formule de type SI=(test ; vrai ; et pour faux j’utilise deux ““ sans espace) , je crée une macro avec l’enregistreur pour copier ce tableau dans la deuxième feuille B avec un copier/coller (uniquement valeur) qui fonctionne très bien mais lorsque j’inclus dans cette macro la deuxième partie (a partir de :Rage(a1 :e2000 »).select) qui me permet de supprimer les lignes vides elle ne fonctionne plus, je suis obliger de coller ce tableau dans le bloc note de Windows puis de le recopier et recoller dans ma feuille B pour que la macro supprimer les lignes vides fonctionne (je l’utilise alors seule).
Voici ma macro :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15/04/2006 par Stéphane
'
'
Sheets('A').Select
Range('A1:E2000').Select
Selection.Copy
Sheets('B').Select
Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('A1:e2000').Select
Dim vDerniereLigne As Long
Dim vLigne As Long
vDerniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For vLigne = vDerniereLigne To 1 Step -1
If Application.CountA(Rows(vLigne)) = 0 Then Rows(vLigne).Delete
Next
End Sub
Comment faire pour éviter se passage dans le bloc note de Windows et positionner automatiquement la cellule active sur la première ligne vide (colonne A) après suppression des lignes vides ?
En vous remerciant par avance.
Cordialement.
Stéphane.
J’ai un problème que je n’arrive pas à résoudre, qui se produit a chaque fois que j’utilise ma macro.
Voici son descriptif je possède un classeur comportant deux feuilles (A et B) sur la A mes formules (5 colonnes de A:E de 2000 lignes) chaque cellules comportent la formule de type SI=(test ; vrai ; et pour faux j’utilise deux ““ sans espace) , je crée une macro avec l’enregistreur pour copier ce tableau dans la deuxième feuille B avec un copier/coller (uniquement valeur) qui fonctionne très bien mais lorsque j’inclus dans cette macro la deuxième partie (a partir de :Rage(a1 :e2000 »).select) qui me permet de supprimer les lignes vides elle ne fonctionne plus, je suis obliger de coller ce tableau dans le bloc note de Windows puis de le recopier et recoller dans ma feuille B pour que la macro supprimer les lignes vides fonctionne (je l’utilise alors seule).
Voici ma macro :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15/04/2006 par Stéphane
'
'
Sheets('A').Select
Range('A1:E2000').Select
Selection.Copy
Sheets('B').Select
Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('A1:e2000').Select
Dim vDerniereLigne As Long
Dim vLigne As Long
vDerniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For vLigne = vDerniereLigne To 1 Step -1
If Application.CountA(Rows(vLigne)) = 0 Then Rows(vLigne).Delete
Next
End Sub
Comment faire pour éviter se passage dans le bloc note de Windows et positionner automatiquement la cellule active sur la première ligne vide (colonne A) après suppression des lignes vides ?
En vous remerciant par avance.
Cordialement.
Stéphane.
