Discussion :

[froutloops62]

Bonjour,

Dans le cadre d'une mise à jour automatique sans effacer les données éventuellement modifiées manuellement, je souhaiterais pouvoir appliquer une formule seulement sur les cellules vides.

Voici cette formule :

Code :

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

1
2
3
4
5
6
7
 With Feuil1
    DerLig = .UsedRange.Rows.Count
    With Range("L1:L" & DerLig)
    .Formula = "=VLOOKUP(D1, Feuil2!A1:B200,2,false)"
    .Value = .Value
    .Replace "#N/A", "Non associée", xlWhole, , False
    End With

Pourriez-vous m'aider s'il vous plaît ? (je patauge !)

Merci

[eriiic]

Bonjour,

Code :

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

1
2
3
4
5
6
7
        Dim pl As Range
        On Error Resume Next
        Set pl = Range("L1:L" & DerLig).SpecialCells(xlCellTypeBlanks)
        On Error GoTo 0
        If not pl Is Nothing Then
            With pl
               ...

eric

[froutloops62]

Bonjour Eric,

Merci ça marche presque mais comme derrière j'ai une formule de rechercheV qui fait référence à la cellule D1 les données ne sont pas cohérentes.

Il faudrait que D1 soit dynamique.

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
Sub Maj()
 
Dim pl As Range
Dim DerLig As Integer
 
        On Error Resume Next
        With Sheets(1)
        DerLig = .UsedRange.Rows.Count
        Set pl = Range("L1:L" & DerLig).SpecialCells(xlCellTypeBlanks)
        On Error GoTo 0
        If Not pl Is Nothing Then
        With pl
    .Formula = "=VLOOKUP(D1, pIC,2,false)"
    .Value = .Value
    .Replace "#N/A", "Non associée", xlWhole, , False
    End With
        End If
        End With

[joe.levrai]

Bonjour,

passe par FormulaR1C1 dans ce cas là, tu indiques le premier décalage relatif par rapport à la première cellule de ta plage, et le reste suivra

[froutloops62]

Merci joe.levrai ça fonctionne !
Merci Eriiic !

Voici mon code :

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
Dim pl As Range
Dim DerLig As Integer
 
 
        On Error Resume Next
        With Sheets(1)
        DerLig = .UsedRange.Rows.Count
        Set pl = Range("L1:L" & DerLig).SpecialCells(xlCellTypeBlanks)
        On Error GoTo 0
        If Not pl Is Nothing Then
        With pl
        Range("L1:L" & DerLig).SpecialCells(xlCellTypeBlanks).Select
    .FormulaR1C1 = "=VLOOKUP(RC[-8], pIC,2,false)"
    .Value = .Value
    .Replace "#N/A", "Non associée", xlWhole, , False
    End With
        End If
        End With
 
End With

[joe.levrai]

Bravo à toi

une explication, une piste, une aide, et tu débloques ta situation

un mérité