Discussion :

[mathspountz]

Bonjour,

J'ai un problème qui m'arrive souvent, et que je vais illustrer ici par un exemple tout simple. Je pense que ça arrive beaucoup aux grands débutants comme moi.

Comment définir automatiquement une variable ?

Je voudrais que excel compte le nombre de cellules non vide sur les 20 premières colonnes.

Je propose donc :

Code :

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

1
2
3
4
VERIF1 = WorksheetFunction.CountA(Columns("A:A"))
VERIF2 = WorksheetFunction.CountA(Columns("B:B"))
VERIF3 = WorksheetFunction.CountA(Columns("C:C"))
ETC...

Mais ça serait assez long. Comme dire à excel de le faire tout seul ?

Proposition :

Code :

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

1
2
3
4
For n = 1 to 20
dim VERIFn as integer
VERIFn = WorksheetFunction.CountA(Columns(n))
Next n

Comment faire comprendre à excel que le n de VERIFn doit être la valeur de la variable ?

Ou sinon créer une variable tableau (20;2) ? J'avoue que je galère pour faire ce genre de chose !

[NEC14]

Bonjour,
Peut-être Dim VERIF (n) As Integer

[Invité]

Bonjour,
Avant de faire comprendre quoique ce soit à Excel, il serait bon de nous le faire comprendre à nous.
VERIFn va te servir à quoi ?

[mathspountz]

Tout d'abord merci pour vos réponses.

Les verifs (n) vont me servir ensuite à comparer le nombre de cellules par colonne.

En fait, c'est une macro, qui à partir d'un tableau simple, effectue plusieurs copier coller et midifications simple comme des insertion etc...

Comparer le nombre de cellules non vide par colonnes dans le tableau final permettrait de signaler tout de suite des erreurs probables qui se seraient glissées dans le tableau initial (par les humains qui l'ont saisi).

Voila c'est peut-être plus clair ?



Je vais tester le verif (n) demain matin en étant plus frais !

[Invité]

Code :

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

1
2
3
4
5
6
7
Dim VERIF(21) As Integer
For c = 1 To 20
    VERIF(c) = WorksheetFunction.CountA(Columns(c))
Next
For c = 1 To 20
  Debug.Print VERIF(c)
Next

[mathspountz]

Merci beaucoup ça marche bien, je ne connaissais pas cette astuce variable() ça va m'être très utile. Je vais pouvoir gagner beaucoup de lignes dans mes codes !!! Merci encore !

Par contre je ne sais pas trop ce que fait debug.print...

Sinon, question de ponctuation dans le même genre qui m'arrive aussi assez souvent :

J'ai une variable X et une autre Y.
Je veux selectionner le colonne F de ligne variable X à variable Y.
Si X=3 et Y=9 je voudrais selectionner "F3:F9"

Comment je peux faire ? Je sais le faire que pour selectionner des lignes entières ou des colonnes entières.

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
 
Dim T as Integer
Dim S as Integer
Dim Q As Integer
Dim P as Integer
    P = 1
    Q = T * S
    Sheets("PER").Activate
    For n = 0 To (U - 2)
    A = Q * (n + 1) + 1
    Application.CutCopyMode = False
    Rows(P & ":" & Q).Copy
    Rows(A).Activate
    ActiveSheet.Paste
    Next n

Mais je voudrais copier seulement le colonne F dans cet intervale...

J'espère me faire comprendre avec cet exemple.