Re : Comptage d occurence selon un ou plusieurs criteres
Bonsoir,
jutilise une macro qui execute ceci
Private Sub Worksheet_Activate()
Range([A6], [A5000].End(xlUp)(2)).ClearContents 'on efface la plage de A6 à la dernière cellule non-vide en colonne A
Dim tablo() As String
With Sheets("BDDAGENT")
x = 0 'on initialise le compteur
For lig = 2 To .[B5000].End(xlUp).Row 'en BDDAGENT, colonne B, pour chaque ligne de B2 à la dernière non-vide
If UCase(.Cells(lig, 3)) = "DPX" Then 'si la cellule contient un 'DPX' (majuscule ou minuscule)ou lig, 3
' correspond à la troisieme colonne de BDDAGENT où DPX noté
ReDim Preserve tablo(x) 'on redimensionne le taleau
tablo(x) = .Cells(lig, 1) 'on ajoute le NOM au tableau de DPX ou lig,1 correspond à la 1er colonne de BDDAGENT
x = x + 1 'on incrémente le compteur
End If
Next lig
End With
If x > 0 Then [A6].Resize(x, 1) = Application.Transpose(tablo) 'on colle, au départ de A6, le contenu du tableau
End Sub
Comment puis je readapter le code pour créer un nouveau classeur, que je nommerai BDDAGENT.xlsx qui sera dans le même dossier de travail, sur un serveur commun par exemple \\commun\DOSSIER\bddagent.xlsx
et où la macro ira chercher les infos dans ce classeur au lieu de son propore classeur à l'onglet BDDAGENT
En bref, je veux déplacer BDDAGENT actuel lol