Discussion :

[cocole27]

Bonjour

je n'arrive pas à trouver la macro qui ferait :

Si une cellule de la colonne F est vide alors elle copie dans cette cellule vide la cellule de la colonne H de la même ligne .
Si une cellule de la colonne O est vide alors elle copie dans cette cellule vide la cellule de la colonne Q de la même ligne .

Si une âme charitable peut m'aider .

merci d'avance

[Invité]

Bonjour,

Il vous suffit de faire les manip en utilisant l'enregistreur de macro.

[Daranc]

l'enregistreur de macro est bien et très disert mais il travaille au coup par coups, combien de ligne sont à travailler sur ta feuille ?

[cocole27]

l'enregistreur de macro est bien et très disert mais il travaille au coup par coups, combien de ligne sont à travailler sur ta feuille ?

Le nombre de ligne est aléatoire en fonction du resultat d'une requête impromptu.
Je peux avoir 10 lignes comme une centaine.

[Daranc]

a titre d'exemple

Code :

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

1
2
3
4
5
6
7
Sub passage()
tbl = Range("j4:k41")
For t = 1 To UBound(tbl, 1)
If tbl(t, 1) = "" Then tbl(t, 1) = tbl(t, 2)
Next
Range("j4:k41") = tbl
End Sub

[Menhir]

Comme c'est plus rapide à faire qu'à expliquer...

Code :

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

1
2
3
4
5
6
7
Dim Cel As Range
For Each Cel in Range("F1:F" & Cells(Rows.Count, "H").End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
    Cel.Value = Cel.Offset(0, 2).Value
Next Cel
For Each Cel in Range("O1:O" & Cells(Rows.Count, "Q").End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
    Cel.Value = Cel.Offset(0, 2).Value
Next Cel