Application d'une formule que sur les cellules vides

Version imprimable

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:

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

Bonjour,

Code:

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

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:

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

11/07/2017, 15h28
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

Merci joe.levrai ça fonctionne !
Merci Eriiic !

Voici mon code :

Code:

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

11/07/2017, 17h06
joe.levrai

Bravo à toi

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

un :plusser: mérité
11/07/2017, 18h34
eriiic

Bravo oui
Qq'un qui se prend aussi en main ça fait plaisir ;-)