Discussion :

[lolo69490]

Bonjour à tous,

voila il m'arrive un truc de fou ...

j'ai fait un code qui fonctionne très bien avec le pays "FR" ou/et "CA" ... en revanche, le meme code pour les "US" ou "USA", "United States" et "United_States" plante ... je ne comprends pas pourquoi...
Voici mon code.
Avez-vous une idée et une solution à part de renommer les US en un autre nom

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
    'compte le nombre de lignes et colonnes
 
        Range("A1").Select
        nblignes = Range("A1", selection.End(xlDown)).Cells.Count
        nbColonnes = Range("A1", selection.End(xlToRight)).Cells.Count
 
    'recherche si le pays existe
 
        If Application.CountIf(Range("C:C"), "United States") > 1 Then
 
    'selectionne les lignes et les effface
 
            ActiveSheet.ListObjects("Table13").Range.AutoFilter Field:=3, Criteria1:= _
                "<>United States"
'            ActiveSheet.ListObjects("Table13").Range.AutoFilter Field:=3, Criteria1:= _
'                "=Canada", Operator:=xlOr, Criteria2:="=France"
            Rows("2:" & nblignes & "").Select
            Range(selection, selection.End(xlDown)).Select
            selection.Delete Shift:=xlUp
            ActiveSheet.ListObjects("Table13").Range.AutoFilter Field:=3
            Range("A2").Select
 
        Else
 
    'supprime l'onglet si le pays n'est présent dans l'onglet
            Sheets("US").Select
            ActiveWindow.SelectedSheets.Delete
 
        End If

[Menhir]

j'ai fait un code qui fonctionne très bien avec le pays "FR" ou/et "CA" ... en revanche, le meme code pour les "US" ou "USA", "United States" et "United_States" plante ...

Qu'est-ce que tu entends par "plante" ?
Ca génère un message d'erreur ? Quel message ? Quel ligne de code est signalé par le débugage ?
Que veux-tu dire par "avec le pays FR", "pour les US" ? Qu'est ce qui est modifié ? Le contenu du code ? un paramètre ? le contenu d'une cellule ?
Bref, prends le temps d'apporter les détails nécessaire à ta demande.