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]

je rentre bien cela mais ca prend un temps fou à se faire
Il ne serait pas enviseageable le cas suivant :

Tant que la colonne A est rempli alors on ne touche a rien
Dès la première ligne ou A est vide, je supprimme l'ensemble des formules présentes dans la colonne C a partir de cette ligne ?

Merci d'avance

[Philippe Tulliez]

Bonjour,
Je pensais que la formule était en colonne A ?

Code :

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

1
2
3
4
5
6
7
8
 
 For Each rng In Range("A1:A5000")
    If Len(rng) = 0 Then
       ' Ici le code de suppression 
        rng.Formula = ""  ' Ici supprime la formule se trouvant en colonne A
        rng.Offset(0, 2).Formula = ""     ' Ici supprime la formule se trouvant en C
    End If
 Next rng

[pgz]

Bonjour.

je rentre bien cela mais ca prend un temps fou à se faire

Il serait peut-être bon d'envisager de passer par une variable tableau.

Cordialement,

PGZ

[jerem1]

C'est bon j'ai ma macro qui fonctionne :

Code :

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

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

Comment l'exprimer avec une variable tableau ou autre pour prendre moins de temps d'après vous (la c'est environ 20 min pour parcourir l'ensemble des 5000 champs et supprimer les formules à chaque fois que nécéssaire) ???

[el_slapper]

tu as essayé

Code :

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

Application.ScreenUpdating = False

en début de code et

Code :

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

Application.ScreenUpdating = True

à la fin?

[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

[pgz]

Bonjour.

excuses-moi pgz, pas vu ta réponse

Les collisions sont inévitables!
Pas de pb. En plus, ta proposition est intéressante si le tableau a une longueur variable.

Cordialement,

PGZ

[jerem1]

Bonsoir,

Je rentre la formule de PGZ ainsi

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("Donnée").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("Donnée").Range("A1:I5000").Formula = v

rien de plus simple me direz vous, et bien pourtant l'application s'arrete sur la dernière ligne qui est donc :

Code :

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

ThisWorkbook.Worksheets("Donnée").Range("A1:I5000").Formula = v

et m'affiche

Erreur définie par l'application ou par l'objet

Quelqu'un sait ce que cela signifie ? si oui comment y résoudre ??

Merci d'avance

[casefayere]

je crois que ta solution est là

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub essai()
Dim v As Variant, x As Long, nbl As Long
nbl = Range("a" & Rows.Count).End(xlUp).Row
v = ThisWorkbook.Worksheets("Donnée").Range("A1:I" & nbl).Formula
 
For x = 1 To UBound(v, 1)
    If v(x, 2) = "" Or v(x, 3) = "" Then
        v(x, 1) = Empty
    End If
Next x
ThisWorkbook.Worksheets("Donnée").Range("A1:I" & nbl) = v
 
End Sub

j'ai testé

[jerem1]

Re
Toujours pas j'ai écrit ca dans une macro à part histoire d'etre sur

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 Macro()
'Nous enlevons la sécurité sur la feuille "Donnée"
Sheets("Donnée").Unprotect Password:=""
Sheets("Donnée").Select
Dim v As Variant, x As Long, nbl As Long
nbl = Range("a" & Rows.Count).End(xlUp).Row
v = ThisWorkbook.Worksheets("Donnée").Range("A1:I" & nbl).Formula
 
For x = 1 To UBound(v, 1)
    If v(x, 2) = "" Or v(x, 3) = "" Then
        v(x, 1) = Empty
    End If
Next x
ThisWorkbook.Worksheets("Donnée").Range("A1:I" & nbl) = v
 
'Nous enlevons la sécurité sur la feuille "Donnée"
Sheets("Donnée").Protect Password:=""
End Sub

Et il me met la même erreur sur la ligne
ThisWorkbook.Worksheets("Donnée").Range("A1:I" & nbl) = v

Vous avez d'autres pistes ?
Cordialement

[casefayere]

je suis étonné car j'ai testé sur fichier et ce code fonctionnait, mais avant toute chose, je pense que tu as des écritures inutiles, alors avant de voir plus en profondeur, allégeons ton code et on verra plus clair.

en effet ton code commence par

Code :

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

1
2
3
....
Sheets("Donnée").Unprotect Password:=""
......

donc ceci suppose que tu es bien dans le bon classeur et la bonne feuille, je reprends donc ton code et l'allège :

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 Macro()
Dim v As Variant, x As Long, nbl As Long
 
'Nous enlevons la sécurité sur la feuille "Donnée"
With Sheets("Donnée")
   .Unprotect Password:=""
   nbl = .Range("a" & .Rows.Count).End(xlUp).Row
   v = .Range("A1:I" & nbl).Formula
   For x = 1 To UBound(v, 1)
      If v(x, 2) = "" Or v(x, 3) = "" Then
         v(x, 1) = Empty
      End If
   Next x
   .Range("A1:I" & nbl) = v
 
'Nous remettons la sécurité sur la feuille "Donnée"
   .Protect Password:=""
End With
End Sub

mais ça ne résoudra pas ton problème, chez moi le code fonctionne

[pgz]

Bonsoir.

Correction :

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) = vbnullstring
        v(x, 9) = vbnullstring
    End If
Next x
 
ThisWorkbook.Worksheets("NomFeuille").Range("A1:I5000").Formula = v

Je n'avais pas testé.

PGZ