Discussion :

[Babar09]

Bonjour à tous,

J'ai une feuille Excel contenant des millions de données et certaines cases contiennent "--". Je voudrais pouvoir via un code VBA, remplacer ces "--" par une formule renvoyant l'adresse de la cellule située au-dessus de la cellule contenant les "--". Est-ce possible ? J'ai le code suivant qui pour l'instant remplace "--" par "":

Code :

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

1
2
3
4
 
    Cells.Replace What:="--", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

[traersa]

si j'ai bien compris ta demande le code est le suivant je n'ai pas travaillé sur toutes les cellules mais seulement sur celles qui sont selectionnées, ça te permettra de tester plus facilement, si tu fais sur toutes les cellules attention ça prend du temps :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Macro2()
 
 
For Each cellule In Selection.Cells
 If cellule.Value = "--" Then
 cellule.Value = cellule.Offset(-1, 0).FormulaR1C1
 End If
 Next
 
End Sub

[joe.levrai]

Bonjour,

.Address au lieu de .FormulaR1C1
Il veut la formule faisait référence à la cellule du dessus ... ou simplement les coordonnées de la cellule du dessus ? Le doute est permis

Attention à ne pas le faire sur la ligne 1 ... et souhaites-tu vraiment une formule ou la valeur seulement te suffit ? Auquel cas utiliser .Value au lieu de .Address

[Ben_L]

Bonjour à vous,

Si j'ai bien compris la demande, le code à utiliser serait plutôt :

Code :

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

cellule.FormulaR1C1 = "=R[-1]C"

Cordialement

[Menhir]

Pour alléger un peu :

Code :

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

1
2
3
4
5
6
Sub Macro2()
   Dim cellule As Range
   For Each cellule In ActiveSheet.UsedRange
      If cellule.Value = "--" Then cellule.FormulaR1C1 = "=R[-1]C"
   Next cellule
End Sub

Edit : Ooops, j'ai modifié mon message au lieu d'en créer un autre. Pas grave, ce code est un peu mieux que le précédent.

[Babar09]

Merci beaucoup à tous, ca fonctionne Cependant, les feuilles étant très lourdes, le code fait tout planter... Je vais essayer de réfléchir à une autre solution

[Babar09]

Pour alléger un peu :

Code :

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

1
2
3
4
5
6
Sub Macro2()
   Dim cellule As Range
   For Each cellule In ActiveSheet.UsedRange
      If cellule.Value = "--" Then cellule.FormulaR1C1 = "=R[-1]C"
   Next cellule
End Sub

Edit : Ooops, j'ai modifié mon message au lieu d'en créer un autre. Pas grave, ce code est un peu mieux que le précédent.

J'y avais pensé aussi avant de voir ta correction et en effet, ca ne plante plus (même si ca reste encore un peu long) Encore un grand merci !

[eriiic]

Bonjour,

même si ca reste encore un peu long

Si jamais ce n'était pas à usage unique :

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
Sub test()
    Dim pl As Range, c As Range, firstAddress As String
    With Worksheets(1).Cells
        Set c = .Find("--", , xlValues, xlWhole)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                If pl Is Nothing Then
                    Set pl = c
                Else
                    Set pl = Union(pl, c)
                End If
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
    If Not pl Is Nothing Then pl.FormulaR1C1 = "=R[-1]C"
    Set pl = Nothing
End Sub

eric

[Menhir]

même si ca reste encore un peu long

Tu peux ajouter quelques bricoles qui évitent les régénérations pendant l'exécution.
Fouille là-dedans :
https://msdn.microsoft.com/fr-fr/lib.../ff841201.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff821260.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff193498.aspx

Ne pas oublier de remettre les valeurs initiales en fin de code.