Discussion :

[jerem1]

Bonjour a tous
voici mon présent problème :
j'ai une colonne A avec A1 la formule =B1&C1 dedans, A2avec =B2&C2...
je voudrais en vba que dès que B ou C est vide alors une macro en vba me supprime la formule contenu dans la cellule A correspondante
je vous remercie d'avance

[mayekeul]

bonjour

tu peux faire un petit truc qui ressemble à ça

Code :

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

1
2
3
4
5
6
 
dim rng as range
 
for each rng in range("A:A")
    if rng="" then rng.formula=""
next rng

[jerem1]

je rentre cela mais ça me fait planter la base (on dirait qu'il ne s'arrette jamais), pourquoi ?

Code :

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

1
2
3
4
5
6
7
8
sub form
Sheets("Donnée").Select
    Dim rng As Range
 
For Each rng In Range("A1:A5000")
    If rng = "" Then rng.Formula = ""
Next rng
end sud

[Philippe Tulliez]

Comme cela sans doute

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub form()
  Sheets("Donnée").Select
  Dim rng As Range
 
  For Each rng In Range("A1:A5000")
    If rng.Offset(0, 1) = 0 And rng.Offset(0, 2) = 0 Then
       rng.Formula = ""
    End If
  Next rng
End Sub

[casefayere]

Bonsoir à tou(te)s,

vu cette citation :

je voudrais en vba que dès que B ou C est vide

j'aurais mis, à la place de "and" :

Code :

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

If rng.Offset(0, 1) = 0 or rng.Offset(0, 2) = 0 Then

Bonne soirée

[Philippe Tulliez]

Exact, mal lu

[jerem1]

oui, oui j'ai bien mis cela au début et fin de ma macro.....

[pgz]

Bonsoir.

Pour faire avec un tableau :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim v As Variant, x As Long
 
v = ThisWorkbook.Worksheets("NomFeuille").Range("A1:I5000").Formula
 
For x = 1 To UBound(v, 1)
    If v(x, 1) = 0 Then
        v(x, 7) = Empty
        v(x, 9) = Empty
    End If
Next x
 
ThisWorkbook.Worksheets("NomFeuille").Range("A1:I5000").Formula = v

Si je ne me suis pas trompé sur les indices...

PGZ

[casefayere]

bonsoir,
tu n'a peut-etre pas 5000 lignes à vérifier, et si je reprends ton code

Code :

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

1
2
3
4
5
6
7
For Each rng In Range("A1:A" & rows.count).end(xlup).row
If Len(rng) = 0 Then
' Ici le code de suppression
rng.Offset(0, 6).Formula = "" 
rng.Offset(0, 8).Formula = ""
End If
Next rng

ca devrait déjà soulager

PS : excuses-moi pgz, pas vu ta réponse