Bonjour Bidouille 2,
j'viens d'voir que j'ai fait une erreur dans mon code VBA : j'ai inclus dans la boucle For i = 2 To n .. Next i cette partie :
With .[A1]
.Font.Bold = -1: .HorizontalAlignment = 3
.Value = "JOUEURS"
End With
donc elle est exécutée à chaque « tour » de boucle alors qu'une seule fois suffit ! voici le fichier corrigé :
le code complet est maint'nant celui-ci :
Option Explicit
Sub Essai()
If ActiveSheet.Name <> "Liste coplays" Then Exit Sub
Dim Tbl, Joueur$, lig&, n&, i&
n = Cells(Rows.Count, 1).End(3).Row: If n = 1 Then Exit Sub
Tbl = [A1].Resize(n, 3)
With Worksheets("Sans coplay")
.Columns(1).ClearContents: lig = 2
For i = 2 To n
Joueur = Tbl(i, 1)
If Joueur <> "" Then
If Tbl(i, 2) = "" And Tbl(i, 3) = "" Then _
.Cells(lig, 1) = Joueur: lig = lig + 1
End If
Next i
With .[A1]
.Font.Bold = -1: .HorizontalAlignment = 3
.Value = "JOUEURS"
End With
.Select
End With
End Sub
bonne chance pour l'adaptation avec Google Apps Script !
dhany