[XL-2000] problème suppression de cellules en vba

problème suppression de cellules en vba

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

bonjour

tu peux faire un petit truc qui ressemble à ça
Code:

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

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

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

Comme cela sans doute

Code:

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

Bonsoir à tou(te)s,

vu cette citation :

Citation:

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

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

Code:

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

Bonne soirée

Exact, mal lu

reduction de temps enviseageable ?

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

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

Code:

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

Bonjour.

Citation:

Envoyé par jerem1

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

Help!!!!!

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

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) ???

tu as essayé

Code:

Application.ScreenUpdating = False

en début de code et

Code:

Application.ScreenUpdating = True

à la fin?

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

Bonsoir.

Pour faire avec un tableau :

Code:

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

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

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

Bonjour.

Citation:

Envoyé par casefayere

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

Bonsoir,

Je rentre la formule de PGZ ainsi
Code:

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:

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

je crois que ta solution est là

Code:

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é

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

Code:

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

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:

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:

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

Bonsoir.

Correction :

Code:

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

Bonsoir pgz,
j'avais testé mon code (copié sur le tien) et il fonctionnait, il supprimait les formules de calcul comme demandé.
maintenant si ton code est plus aguerri, je pense que jerem1 devrait tout de meme le rendre plus efficace en adaptant cette variable

Code:

nbl = .Range("a" & .Rows.Count).End(xlUp).Row

Bonne nuit