Problème avec la fonction COUNTIF Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
C
Captainmikou
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 20 février 2015
Version d'Excel : 2010 DE

Message par Captainmikou » 18 juin 2015, 09:07

Bonjour à tous,


Alors voilà j'ai un souci avec mon code. Je cherche à compter le nombre de cellules vides dans une colonne. La colonne s'appelle ET-KZ.


Voici mon code:
dbl_lastcolumn2 = ActiveSheet.Cells(1, 100).End(xlToLeft).Column
For b = 1 To dbl_lastcolumn2
If Cells(1, b).Value = "ET-KZ" Then
dbl_etkz = b
b = dbl_lastcolumn2
End If
Next b
Cells(1, dbl_teil).Select
Selection.End(xlDown).Select
row = ActiveCell.row
Range(Cells(2, dbl_etkz), Cells(row, dbl_etkz)).Select
ActiveCell.Name = "etkz"
Sheets("Werte").Select
Range("G12").Select
ActiveCell.Formula = "=COUNTIF(Abgleich!etkz, """")"
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Je vais sélectionner Teil qui est une colonne à côté dans laquelle il n'y a pas de cellules vides, afin d'arriver plus facilement à la dernière cellule, afin de sélectionner l'ensemble, c'est juste un raccourci. La colonne se trouve dans la sheet "Abgleich".

Ce que je ne comprends pas, c'est que quand je fais la formule à la main en sélectionnant le range dénommé ici etkz bah j'arrive à mon nombre de cellules vides à savoir 849 et si je fais avec le code que vous voyez là bah j'arrive à 0.

Peut-être la ligne row=activecell.row qui bugue ? row as double.

Merci par avance et bonne journée :)
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 3
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 18 juin 2015, 09:46

Bonjour
Quand tu fais
ActiveCell.Name = "etkz"
tu ne sélectionnes qu'une cellule

Évites d'utiliser des variables avec des mots réservés au VBA : Row

N'ayant pas ton fichier source, modifie la partie correspondante
[surligner]Ligne[/surligner] = ActiveCell.Row
Range(Cells(2, dbl_etkz), Cells([surligner]Ligne[/surligner], dbl_etkz)).Select
[surligner]Selection[/surligner].Name = "etkz"
Sheets("Werte").Select
Range("G12").Select
ActiveCell.Formula = "=COUNTIF(Abgleich!etkz, """")"
Image
C
Captainmikou
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 20 février 2015
Version d'Excel : 2010 DE

Message par Captainmikou » 18 juin 2015, 10:13

Bonjour,

MAIS OUI !!! Merci infiniment pour votre réponse ! Comme quoi on ne voit vraiment jamais ses erreurs...

J'ai, comme vous l'avez souligné, juste remplacé "Activecell.name" par "Selection.name" et tout marche !

Encore merci et bonne journée ! :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message