Discussion :

[muzele]

Bonsoir à tous,
Me revoila encore avec une nouvelle question. Je voudrais rechercher et corriger toutes les erreurs #Ref! de la colonne A1:A.....
Par exemple: La macro recherche l'erreur et la trouve à la cellule A12, il remplace le contenu de A12 par la formule =A11+1. puis continue la recherche jusqu'à la prochaine cellule avec l'erreur par exemple A62, il corrige par A62=A61+1 et ainsi de suite.
La formule est en général A(x)=A(x-1) + 1
Merci d'avance pour vos idées et réponses!

[Bear the french]

Bonsoir muzele,

Je t'ai rédigé une macro plus "généraliste" car elle remplace toutes les cellules en erreur par ta formule (et pas uniquement le #REF!)

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 trouveremplaceerreur()
 
Dim C As Range
Dim i As Long
i = 0
 
'parcours de la feuille 1 et de sa colonne A
For Each C In Feuil1.Range("A:A")
 
    ' incrémentation d'une variable i pour repérer la ligne
    i = i + 1
 
    'en cas d'erreur, introduction de la formule Ax = Ax-1 + 1
    If IsError(C) Then C.Formula = "=A" & (i - 1) & "+1"
 
Next C
 
End Sub

Bertrand

[muzele]

Merci Bear,
Lors de l'exécution j'ai une erreur sur la ligne

Code :

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

For Each C In Rappels.Range("A:A")

Ma feuille s'appelle Rappels.
Erreur d'exécution '424' / Objet requis.

[gFZT82]

Bonjour,

Code :

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

For Each C In Worksheets("Rappels").Range("A:A")

Cordialement.

[muzele]

Merci pour tout!
Le code fonctionne très bien! Seulement j'ai une autre petite question. au lieu que la macro s'exécute jusqu'à la fin du classeur, je voudrais que l'exécution de la macro s'arrête dès qu'il est sur une cellule qui a comme contenu "Insérer".
Encore merci

[Bear the french]

Bonsoir muzele,

J'imagine une possibilité en prévoyant une porte de sortie (Exit sub) lorsque l'on rencontre une cellule avec "Insérer" dedans :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub trouveremplaceerreur()
Dim C As Range
Dim i As Long
i = 0
For Each C In Worksheets("Feuil1").Range("A:A")
    i = i + 1
    If IsError(C) Then C.Formula = "=A" & (i - 1) & "+1"
 
    'en cas de cellule avec "Insérer" rencontrée dans la boucle, sortie de la procédure
    If C.Value = "Insérer" Then Exit Sub
 
Next C
End Sub

Bertrand