Ayai, je viens d'essayer en l'écrivant dans un module, et rien n'y fait...
Toujours sur la même ligne quil bugge...
"Erreur définie par l'application ou par l'objet error 1004" qu'il me dit...
Bon je vous file la macro entière commentée:
Public Sub prout()
Dim i As Integer
Dim donnees_selectionnees As String
Dim base As String
Dim ligne_bas, ligne_trouve As Integer
detourne *** Une fonction qui me permet de faire fonctionner le Application.GoTo qui suit et qui m'avait bien saoulé...***
***Voilà une boucle qui me permet de récupérer le nom des données sélectionnées par l'utilisateur à l'intérieur d'une listbox présente sur la feuille***
With Worksheets("Severity")
For i = 0 To .ListBoxSelectSeries.ListCount - 1
If .ListBoxSelectSeries.Selected(i) Then
donnees_selectionnees = .ListBoxSelectSeries.List(i)
End If
Next i
End With
***Je vais à la référence correspondant au choix de l'utilisateur, et j'y récupère le nom d'une feuille sur laquelle je vais devoir travailler( on stocke ce nom dans "base" )***
Application.Goto Reference:=donnees_selectionnees
base = ActiveCell.Offset(0, 3).Value
*** J'applique un filtre à Tab_données qui se situe dans la feuille voulue***
Worksheets(base).Range("Tab_donnees").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets _
("Filtres").Range(donnees_selectionnees), CopyToRange:=Worksheets(base).Range("M1"), _
Unique:=False
*** Je récupere dans la colonne où vont se mettre les données filtrées la range contenant ces données, et j'essaye de renommer cette range "COUIC" ***
With Worksheets(base)
ligne_bas = 1
While .Range("Q1").Offset(ligne_bas, 0).Value <> ""
ligne_bas = ligne_bas + 1
Wend
.Range(Cells(2, 17), Cells(ligne_bas, 17)).name = "COUIC"***ICI QUE CA FOIRE***
End With
'Worksheets(base).
With WSWORK.Range("AB1")
ligne_trouve = 1
While .Offset(ligne_trouve, 0).Value <> donnees_selectionnees
ligne_trouve = ligne_trouve + 1
Wend
.Offset(ligne_trouve, 1).Value = "COUIC"
.Offset(ligne_trouve, 2).Value = 6666
End With
End Sub
Bon bah voilà... je désespère là... j'ai beau chercher comme un dingue d'où vient cette erreur, je ne trouve rien...
Merci de votre aide!