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