Discussion :

[TheFlow]

Bonjour à tous !

Dans le cadre de mon stage, j'ai à traiter des gros fichiers de données afin de les retailler.


A supposer que j'ai deux colonnes :

A : La première est filtrée pour mettre en évidence tous les champs vides de données
B : La seconde présente les données qui doivent remplacer les champs vides de la première.

Remarque : comme il y a un filtre en A, on ne voit que certaines lignes de la colonne B. C'est justement arrangeant. Si ma ligne 334 est vide, on voit dans la colonne B la valeur qui devrait la remplacer.

Remarque bis : il y a aussi quelques champs vides dans ma colonne B, ce qui m'empêche d'utiliser la commande suivante pour sélectionner toutes ses données :

Code :

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

Range("B2").End(xlDown).Row

Je souhaite automatiser cette opération au milieu de tout un processus. Je souhaite donc pouvoir dire à VBA de copier toutes les données que l'on voit dans B pour les mettre dans A, uniquement pour les lignes gardées par le filtre.

J'ai pensé à utiliser la formule "Autofill" ou "Fillleft", qui fonctionne bien en manuel, mais ne sachant pas comment sélectionner ma plage de donnée complète, je n'y parviens pas.

Je vous remercie d'avance pour votre aide et vous souhaite une bonne soirée

[ilcocodrillo]

un truc comme ça ça le fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub azerty()
 
Dim I As Integer
 
Do While I < Range("A65536").End(xlUp).Row
I = I + 1
If Cells(I, 1) = "" And Cells(I, 2) <> "" Then
Cells(I, 1) = Cells(I, 2)
End If
Loop
End Sub

[deuxmains]

Bonjour a tout le monde

si j'ai bien compris ton problème il faut créer une boucle en lui donnant le nombre de ligne que tu souhaites analyser

essais ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub essai()
Dim i As Integer
Dim compte As Integer
 
compte = InputBox("Entrez le nombre de ligne que vous souhaitez traiter svp", "Information demandée")
 
    For i = 1 To compte
        If Range("a" & i) = "" Then Range("a" & i) = Range("b" & i)
    Next i
 
End Sub

Il est sans doute possible de l'améliorer un peu

[bidou]

Code :

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

1
2
3
4
5
Dim MaCell As Range
 
For Each MaCell In ActiveSheet.UsedRange.Columns(1).SpecialCells(xlCellTypeVisible)
    MaCell.Value = MaCell.Offset(, 1).Value
Next

[TheFlow]

Bidou, tu es magique.

Du coup la réponse n'a plus l'air d'être en accord avec le titre, mais mon problème est résolu.

Merci à tous