Discussion :

[carte_blanche]

Bonjour tout le monde,

Voilà, je découvre VBA et après pas mal de recherches je reste bloqué sur ce problème.

Je possède un fichier Excel avec en Feuille 1 (Feuil1), une colonne de valeurs (commençant par A1) comme :

01-001
02-001
01-002
00-000
03-001
02-002
00-000
00-000
03-002
...


Je voudrais reporter les valeurs de cette colonne sur la Feuille 2 (Feuil2) à partir de A1 sauf la valeur "00-000". A la place, la valeur suivante (différente de "00-000") sera recopiée. Ainsi ma colonne de valeurs sur la feuille 2 n'aura pas de cellules vides.
Je cherche à faire une VBA qui ferait automatiquement la suppression de "00-000" sur la feuille 2. Je ne sais pas si c'est possible ni comment résoudre ce problème. C'est pourquoi je fais appel à votre aide aimable.
Je vous remercie par avance pour votre contribution.

[Nico Chg]

Bonjour,

Oui, c'est tout à fait possible !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'Définition des variables
Dim lastLine as single
Dim TempArray
Dim I as single, J as single
 
'Calcul de la dernière ligne remplie de la colonne A de la feuille 1
lastLine =  Worksheets("Feuil1").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
 
'Assigne la plage dans un tableau pour gain de vitesse d’exécution
TempArray = Worksheets("Feuil1").Range("A1:A" & lastLine)
 
'Initialisation de J
J = 1
 
'Parcours le tableau
For I = LBound(TempArray, 1) To UBound(TempArray, 1)
 
    'Si une valeur est différente de "00-000" alors on l'exporte dans la feuille 2
    If TempArray(I, 1) <> "00-000" Then 
        Worksheets("Feuil2").cells(J, 1) = TempArray(I, 1)
        J = J + 1
    End if
Next I

Tu peux essayer quelque chose comme ça, si tu as besoin de plus d'explication, n'hésite pas à revenir !

[LawNasK]

Bonjour,

Deux solutions me viennent immédiatement en tête :

1 : Une boucle qui parcours la feuille 1. Cette méthode risque d'être lente pour un grand nombre de données.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub un()
    Dim i As Integer
    Dim compteurLigne As Integer
 
    compteurLigne = 1
 
    With ThisWorkbook.Worksheets("feuile1")
    For i = 1 To .Range("A1").End(xlDown).Row
        If .Range("A" & i).Value <> "00-000" Then
            ThisWorkbook.Worksheets("feuile2").Range("A" & compteurLigne).Value = .Range("A" & i).Value
            compteurLigne = compteurLigne + 1
        End If
    Next
End Sub

2 : Plus rapide mais impossible s'il y a déjà des données dans la feuille 2, car cela effacerait des données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub deux()
    With ThisWorkbook.Worksheets("feuille2").Range("A:A")
        .Value = ThisWorkbook.Worksheets("feuille1").Range("A:A").Value
 
        .AutoFilter Field:=1, Criteria1:="00-000"
        .SpecialCells(xlCellTypeVisible).Rows.Delete
 
        .AutoFilter
    End With
End Sub

[carte_blanche]

Merci beaucoup à vous ! J'ai testé vos scripts, ça fonctionne comme je le voulais. Cependant, quand je rajoute une valeur sur la colonne de la feuille 1, elle ne s'affiche pas automatiquement sur la feuille 2. Comment peut-t-on y remédier à ça?

[LawNasK]

C'est un peu lourd, mais tu peux lancer l’exécution automatique de la macro à chaque modification de ta plage A:A

[carte_blanche]

Comme je l'avais dit plus haut, je débute sur VBA et je me perds assez facilement. Pourrais-tu, s'il te plait, m'expliquer la démarche pour que ma macro s’exécute automatiquement?

Aussi, quand tu dis que c'est un peu lourd, est-ce que ça signifie que mon fichier Excel prendra plus de temps pour se charger?

[LawNasK]

J'ai trouvé ça sur le support Microsoft :

A mettre dans le code de la feuille1 et non pas dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
 
    ' La variable KeyCells contient les cellules qui déclencheront
    ' une alerte si elles sont modifiées.
    Set KeyCells = Range("A:A")
 
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        Call maFonctionQuiRecopie
    End If
End Sub

Aussi, quand tu dis que c'est un peu lourd, est-ce que ça signifie que mon fichier Excel prendra plus de temps pour se charger?

Pas spécialement à charger, mais lors de la modification d'une cellule de la colonne A, il y aura une latence du temps de l’exécution de la macro pour la mise à jour.

[Nico Chg]

Non, pas spécialement, c'est jusque la macro va se lancer à chaque modification de la colonne A.

Il existe une autre méthode, sans passer par du VBA :


Dans la Feuil1, tu insère une colonne à gauche de A (nouvellement A), et tu recopie simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(B1="00-000";"";B1)

que tu tire jusqu'ou tu veux.

Dans la colonne A de ta feuille 2, tu insère cette formule que tu valide avec ctrl + shift + enter (formule matricielle) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SIERREUR(INDEX(Feuil1!$A$1:$A$15;PETITE.VALEUR(SI(Feuil1!$A$1:$A$15<>"";LIGNE($1:$15));LIGNE(A2));1);"")

Si tu as bien validé avec ctrl + shift + enter, tu as des "{}" autour de ta formule. Tu la tire jusqu'ou tu veux, dans mon exemple, je l'ai tiré jusqu'à la ligne 15.

Normalement, ce que je fais :

Dans la nouvelle colonne A de la feuille 1, je fais une liste sans la valeur "00-000", mais avec des cellules vides. Dans la colonne A de la feuille 2, je récupère cette liste sans les cellule vide.

[Marc-L]

Bonjour.

reporter les valeurs de cette colonne sur la Feuille 2 (Feuil2) à partir de A1 sauf la valeur "00-000"

C'est possible en seulement deux lignes de code via un filtre avancé avec un titre de colonne …


__________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[carte_blanche]

Merci pour vos réponses. Finalement j'ai fait sans VBA en suivant la méthode de Nico, c'est plus facile et moins "lourd" aussi

Bonne journée à vous!