Discussion :

[sakhob]

Bonjour,
Je voudrais comparer des colonnes 2 à 2.
j'ai inserer une 3eme colonne à coté de chaque pour inserer ma formule.
j'ai reussi à faire pour 1.
voici le code:

Code :

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

1
2
3
4
5
Sub es()
    Range("c2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]=RC[-1]"
 Selection.AutoFill Destination:=Range("c2:c" & Range("a180").End(xlUp).Row)
 End Sub

je veux appliquer cette formule dans toutes autres ie dans celle colorées .
mai je n'y arrive pas.
est ce quelqu'un aurait une idée de comment faire .
en vous remerciant

voici le resultat que je veux obtenir en pj
NB: j'ai juste copier qu'une partie de mon fichier initial.

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
5
Sub test()
With ActiveCell
    Range(ActiveCell, Cells(Rows.Count, .Column - 1).End(xlUp).Offset(, 1)).FormulaR1C1 = "=RC[-2]=RC[-1]"
End With
End Sub

La cellule sélectée doit être la première de la colonne.

[sakhob]

Bonjour Daniel
Merci pour ton retour rapide.
ça marche sauf que je dois activer a chaque fois la cellule destination.
y'a pas un moyen de se positionner à chaque fois sur la cellule active et appliquer la macro?
pour rappel j'ai plus de 100 colonnes
merci
bien cordialement

[Daniel.C]

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim C As Range
For Each C In Range("C2").Resize(Cells(Rows.Count, 3).End(xlUp).Row, _
    Cells(2, Columns.Count).End(xlToLeft).Column + 1)
    If C.Value = "" And C.Offset(, -1) <> "" And C.Offset(, -2) <> "" Then
        C.Formula = "=" & C.Offset(, -2).Address(0, 0) & "=" & C.Offset(, -1).Address(0, 0)
    End If
Next C
End Sub

[sakhob]

Merci Daniel
j'ai finalement trouvé un moyen plus rapide avec ça

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
Sub TestBouclesImbriquees()
    Dim Ws As Worksheet
    Dim x As Integer, y As Integer
 
       For Each Ws In ThisWorkbook.Worksheets
 
 
        For x = 2 To 60000
                     For y = 3 To 500 Step 3
                               Ws.Cells(x, y) = "=RC[-2]=RC[-1]"
            Next y
        Next x
 
    Next Ws
End Sub

mais c'est un peu long
merci en tout cas

[Nico Chg]

Bonjour,

Pour réduire le temps d'exécution, tu peux calculer par macro la dernière cellule X et la dernière colonne Y. Tu me parle de 100 colonne, et tu vas jusqu'a 500. Chaque interaction avec la feuille te fait perdre du temps d'exécution. Pour 10 cellules, c'est dérisoire, mais pour 60 000 x 170 (Environ), tu m'étonne que ça te prenne longtemps.

Il y a plusieurs méthode pour contourner le problème, mais je pense qu'une première bonne pratique serait de calculer la ligne et la colonne de fin.

[sakhob]

Merci Nico pour les remarques et pour les idées.
cdt