Plage de données
Fermé
Limlight
Messages postés
9
Date d'inscription
lundi 1 juin 2015
Statut
Membre
Dernière intervention
11 juin 2015
-
11 juin 2015 à 15:01
ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 - 11 juin 2015 à 17:42
ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 - 11 juin 2015 à 17:42
A voir également:
- Plage de données
- Supprimer les données de navigation - Guide
- Reinstaller windows sans perte de données - Guide
- Tnt base de données vide ✓ - Forum TNT / Satellite / Réception
- Excel reporter des données sur une autre feuille avec conditions - Forum Excel
- Service de diffusion de données - Forum TNT / Satellite / Réception
2 réponses
ccm81
Messages postés
10907
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 janvier 2025
2 429
11 juin 2015 à 15:52
11 juin 2015 à 15:52
Bonjour
Cdlmnt
Sub Effacer() Dim maPlage As Range Dim DernLigne As Long Dim DernCol As Long With Worksheets("Feuil1") DernLigne = .Range("A" & Rows.Count).End(xlUp).Row DernCol = .Cells(1, Columns.Count).End(xlToRight).Column If DernLigne < 5 Then DernLigne = 5 Set maPlage = .Range(.Cells(5, 1), .Cells(DernLigne, DernCol)) maPlage.ClearContents maPlage.ClearFormats End With End Sub Sub Quadriller() Dim maPlage As Range With Worksheets("Feuil1") Set maPlage = .Range(.Cells(5, 5), .Cells(10, 10)) maPlage.Borders.LineStyle = xlContinuous End With End Sub Sub Filtre() Dim n As Long Dim maPlage As Range n = 5 With Worksheets("Feuil1") Set maPlage = .Range(.Cells(5, 1), .Cells(5, n)) maPlage.AutoFilter End With End Sub
Cdlmnt
ccm81
Messages postés
10907
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 janvier 2025
2 429
11 juin 2015 à 17:42
11 juin 2015 à 17:42
Tu remplaces les constantes (N° de lignes et de colonnes) par tes variables
ex
.Cells(5, 1) à remplacer par .cells(li,co)
li et co seront bien entendu initialisée avant, mais là, ça va dépendre de ce que tu veux faire
ex
.Cells(5, 1) à remplacer par .cells(li,co)
li et co seront bien entendu initialisée avant, mais là, ça va dépendre de ce que tu veux faire
11 juin 2015 à 17:32