Discussion :

[maximeozenne]

Bonjour !

J'ai une colonne A avec des données jusqu'à la cellule A300. Certaines sont vides, d'autres non.

En VBA, je rentre une formule dans la cellule A1 puis j'utilise la fonction Autofill pour la rentrer dans toute ma colonne A (Jusqu'à A300).

Le problème est que les données contenues dans les cellules non vides de la colonne A sont elles aussi écrasées !

J'ai essayer de filtrer sur les cellules vides avant d'appliquer l'autofill mais ça refill également les cellules filtrées...

Y a-t-il un moyen d'ajouter un paramètre "only empty cells" à l'autofill ?

Pour rappelle voici la ligne de code :

Code :

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

1
2
ws.Range("A1").Select
Selection.AutoFill Destination:=ws.Range(ws.Cells(1, 1), ws.Cells(300, 1))

Et la ligne de code pour le filtre sur cellules vides :

Code :

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

ws.Range("$A$1:$A$300").AutoFilter Field:=1, Criteria1:="="

On ne peut pas écrire un truc ressemblant à ça ? :

Code :

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

Selection.AutoFill Destination:=ws.Range(ws.Cells(1, 1), ws.Cells(300, 1)), Criteria1:="="

Merci de votre attention.

[Menhir]

Code :

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

Range("A1").Copy Range("A2:A300").SpecialCells(xlCellTypeBlanks)

[maximeozenne]

Bonjour désolé du temps de réponse. Merci beaucoup je pense que c'est ce qu'il me fallait. N'étant pas sur mon lieu de travail je vous tiendrais au courant du résultat demain. Encore merci !

EDIT : ça fonctionne parfaitement merci !

[maximeozenne]

Ok je me suis emballé un peu vite...

Il y a un problème connu avec le "SpecialCells(xlCellTypeBlanks).Select".

La formule que je colle dans les "cellules vides" est une formule de type RECHERCHEV + IF, qui renvoi "" (vide) si le recherchev ne trouve pas de correspondance. Puis je fais un copier coller des cellules pour transformer les résultats de formule en donnée brut.

Le problème se trouve là. Lorsque que l'on copie colle une cellule vide, on la voit vide, mais il y a des données cachées qu'Excel considère comme non vide (quelques sujets en parle sur le forum, ils expliquent bien mieux que moi)

En gros lors du premier jet, les cellules sont réellement vides. La formule copie colle ces cellules. Elles restent vides, mais ne sont plus considérées comme vide.

Lors du deuxième (et suivants) jet, on obtient alors une erreur 1004 "pas de cellule correspondante" car en effet, il ne détecte plus les cellules comme vides.

Je ne sais donc pas comment contourner ce problème...

[Menhir]

Il y a un problème connu avec le "SpecialCells(xlCellTypeBlanks).Select".

Je ne t'ai certainement pas conseillé de mettre un Select.
Je peux même te conseiller d'éviter autant que possible d'éviter ce membre.

La formule que je colle dans les "cellules vides" est une formule de type RECHERCHEV + IF, qui renvoi "" (vide) si le recherchev ne trouve pas de correspondance. Puis je fais un copier coller des cellules pour transformer les résultats de formule en donnée brut.

Si tu n'indiques pas le contenu de cette formule, comment imagines-tu qu'on puisse t'indiquer comment l'adapter ?

Le problème se trouve là. Lorsque que l'on copie colle une cellule vide, on la voit vide, mais il y a des données cachées qu'Excel considère comme non vide (quelques sujets en parle sur le forum, ils expliquent bien mieux que moi)

Une cellule contenant une formule n'est pas vide, même si son résultat est une chaine de caractère de longueur nulle.

Dans ce cas, il faudra faire une boucle qui scrute chaque cellule, vérifie avec la propriété Text si elle est vide et, si c'est le cas, fasse un coller dedans.

[maximeozenne]

A vrai dire la formule renvoie nulle, puis je fais un copier coller de la range modifiée pour transformer les formule en donnée brut (exemple si je marque "=1+1" ça sera marqué 2 dans la case mais =1+1 dans la formule. Après ma manip', ça sera marqué 2 dans la case ET dans la formule.)

Du coup les cellules vides résultants du renvoi de nulle par la formule, sont bel et bien vides. Si je filtre sur "non vide" ma colonne, elles disparaissent. Ma feuille les considère comme vide, mais pas le code VBA.

Je ne me suis pas douté qu'un problème pareil existait et j'ai simplifié mon problème au maximum pour la compréhension.

Dans un soucis d'optimisation je veux éviter les boucles, car pour 300 lignes ça va, mais quand j'en aurais 20000 ça sera pas aussi drôle.


EDIT : Voici le lien du topic qui explique ce phénomène : http://www.developpez.net/forums/d52...ule-convaincu/

[RyuAutodidacte]

Bonjour,
essaie comme cela :

Code :

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

1
2
3
Sub copie()
Range("A2:A300").SpecialCells(xlCellTypeBlanks).Value = Range("A1").Value
End Sub

[maximeozenne]

Bonjour,

Merci pour ta réponse, mais ça ne fonctionne pas. ça copie le résultat de la formule et non la formule en elle même. Du coup le résultat correspond au résultat pour la première ligne, pas pour la ligne dans laquelle on copie...

Exemple :

Je met =LIGNE() dans la cellule A2, la Value de la cellule A2 sera 2. Si je copie le .Value dans la .Value de la cellule A3, on va se retrouver avec "2" dans la cellule A3, alors que l'on aurait voulu "3" !

[maximeozenne]

Bon tant pis je passe par une boucle. Merci pour votre aide !

[RyuAutodidacte]

bon j'arrive après faut voir si cela peut convenir (personnellement je trouve pas ça super beau, mais bon à tester) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub copie()
Application.ScreenUpdating = False
    With Range("A2:A300").SpecialCells(xlCellTypeBlanks)
        .FormulaLocal = Range("A1").FormulaLocal
    End With
        Range("A2:A300").Copy
        Range("A2:A300").PasteSpecial Paste:=xlValues
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

Comme cela c'est mieux :

Code :

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

1
2
3
4
5
6
7
8
Sub copie2()
Application.ScreenUpdating = False
    With Range("A2:A300")
        .SpecialCells(xlCellTypeBlanks).FormulaLocal = Range("A1").FormulaLocal
        .Value = .Value
    End With
Application.ScreenUpdating = True
End Sub