Discussion :

[dodo28]

Bonjour
Mon probleme : avant de recoller des données je voudrais effacer les données précédente. Voisi la macro que j ai créer mais ca ne marche pas.

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
Sub CreationDeLaListe1()
 
 'Mise en majuscule du massif
    texte = Range("f1").Value
    Range("f1").Value = UCase(texte)
 
'Blocage ecran
Application.ScreenUpdating = False
 
Sheets("Visio").Activate
 
 'suppression des données des lignes 15 à 200
 Rows("15:200").Select
 Selection.Delete Shift:=xlUp
 
'Application du filtrage       
    Sheets("Liste").Range("$A$1:$Ah$18").AutoFilter Field:=1, Criteria1:=UCase(Range("f1"))
 
'Recopie du résultat
   Sheets("Liste").Range("A2").CurrentRegion.SpecialCells(xlCellTypeVisible).Rows.Copy Destination:=Sheets("Visio").Range("a15")
 
'Retire le quadrillage
    ActiveWindow.DisplayGridlines = False
 
'selection d'une cellule
    Range("f1").Select
 
'Dé-Blocage ecran
Application.ScreenUpdating = True
 
End Sub

[Gorfael]

Salut dodo28 et le forum

Voici la macro que j ai créer mais ca ne marche pas.

Normal, elle n'a pas de jambe
ça veut dire quoi "elle ne marche pas" ? Qu'est-ce qui ne fonctionne pas correctement ?

Code :

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

Range("f1") = UCase(Range("f1"))

Comme tu travailles sur plusieurs feuilles, préciser laquelle peut -être utile

Code :

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

Rows("15:200").Delete Shift:=xlUp

La même en plus simple
Déjà, pour éviter tout problème, avant je supprimerais les filtres auto existants (s'il y en a)

Code :

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

Sheets("Liste").AutoFilterMode = False

Code :

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

Sheets("Liste").Range("$A$1:$Ah$18").AutoFilter Field:=1, Criteria1:=UCase(Range("f1"))

ton critère est en F1 de la feuille Visio ?
A+

[dodo28]

voila ce que j ai fait :

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
Sub CreationDeLaListe3()
 'Mise en majuscule du massif
  texte = Range("f1").Value
 Range("f1").Value = UCase(texte)
 'Blocage ecran
Application.ScreenUpdating = False
 
Selection.AutoFilter Field:=1
 
'suppression de la selection dans visio
Range("A15:AH65536").EntireRow.Delete
'selection de liste
Sheets("Liste").Activate
'active les filtres
 Sheets("Liste").Range("$A$1:$Ah$18").AutoFilter Field:=1, Criteria1:=Sheets("Visio").Range("f1")
Range("a2:ah" & Range("a65536").End(xlUp).Row - 1).Copy Destination:=Sheets("Visio").Range("a15")
Selection.AutoFilter Field:=1
 
'retire le quadrillage
ActiveWindow.DisplayGridlines = False
'feuille visio
Sheets("Visio").Activate
 
'enlevefiltre sur e01:m01
 
    Range("E1:M2").Select
    Selection.AutoFilter
 'selection de f01
    Range("f01").Select
 'Dé-Blocage ecran
Application.ScreenUpdating = True
End Sub

Mais bon je suis loin d'être un pro il me manque plusqu a inserer la barre de somme automatique mais je vais y arriver
merci