Discussion :

[wyzer]

Bonjour,

Pourriez-vous me dire comment faire sur VBA pour prendre en compte la plage de données de la colonne A, sur toutes les feuilles

Car j'avais réfléchis à truc du genre :

- ouvrir première feuille
- sauvegarder dans une variable la plage A1:dernière cellule active
- ouvrir deuxième feuille,
- etc...

Mais c'est pas bon, car faudrait que je connaisse par avance le nombre de feuille dans le classeur afin de déclarer au préalable les variables, or je vais utiliser ce code sur différents classeurs, donc nombre de feuilles non connu à l'avance

Merci par avance pour votre aide !!

[Johakr]

Hello,

Pour savoir le nombre de feuille :

Code :

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

1
2
3
Dim nombre_feuille As Integer
 
    nombre_feuille = ThisWorkbook.Sheets.Count

ensuite pour sélectionner la colonne A :

Code :

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

1
2
3
4
5
Dim Sh As Sheet
 
    For Each Sh In Sheets
        Range("A1").EntireColumn.Select
    Next

Voila, ensuite à toi de mixer ça dans ton code

A+

[wyzer]

Voilà :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Sub AB1_nb_de_fois_débiteur()
 
Dim ash As String
 
ash = ActiveSheet.name
 
Sheets.Add.name = "base"
 
For Each Sheet In Sheets
If Sheet.name <> "base" Then
 
Sheet.Activate
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeConstants).Select
Selection.Copy
Worksheets("base").Select
ActiveSheet.Paste
Range("a65536").End(xlUp).Offset(1, 0).Select
Application.CutCopyMode = False
 
End If
Next Sheet
 
Worksheets(ash).Select
 
Columns("F:F").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
 
Dim c As Variant
 
For Each c In Selection
 
c.Value = Application.WorksheetFunction.CountIf(Worksheets("base").Range("A:A"), c.Offset(0, -5))
 
Next c
 
 
End Sub

Par contre, je ne sais pas pourquoi mais il me sélectionne deux fois la première feuille, donc il copie/colle deux fois les mêmes données

[AlainTech]

Oulala...
Pourquoi des Activate et des Select?

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
16
17
18
19
20
Sub AB1_nb_de_fois_débiteur()
  Dim c As Range
  Dim ash As Worksheet
  Dim Sheet As Worksheet
 
  Set ash = ActiveSheet    ' Pas idéal. Il vaut mieux faire référence à la feuille par son nom
  ' Set ash = Worksheets("xxx")
 
  For Each Sheet In Sheets
    If Sheet.name <> "base" Then
      Sheet.Columns("A:A").SpecialCells(xlCellTypeConstants).Copy _
          Worksheets("base").Range("a65536").End(xlUp).Offset(1, 0)
      Application.CutCopyMode = False 
    End If
  Next Sheet
 
  For Each c In ash.Columns("F:F").SpecialCells(xlCellTypeBlanks) 
    c.Value = Application.WorksheetFunction.CountIf(Worksheets("base").Range("A:A"), c.Offset(0, -5))
  Next c
End Sub

[wyzer]

Merci !!