Selection de données par unions.
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 089 fois - Téléchargée 37 fois
Contenu du snippet
Cette fonction trouvée sur un site perso est ecrite merite d'etre vue pour son code. La fonction renvoie une zone Range de cellules non vides.
Source / Exemple :
Sub SelectAllData()
Dim rng As Range, rng1 As Range
Dim rng2 As Range
On Error Resume Next
Set rng2 = Cells.SpecialCells(xlFormulas)
Set rng1 = Cells.SpecialCells(xlConstants)
On Error GoTo 0
If Not rng1 Is Nothing Then
If Not rng2 Is Nothing Then
Set rng = Union(rng1, rng2)
Else
Set rng = rng1
End If
Else
If Not rng2 Is Nothing Then
Set rng = rng2
Else
MsgBox "La feuille est vide."
Exit Sub
End If
End If
rng.Select
End Sub
A voir également
- Selection de données par unions.
- Visual Basic / VB.NET : Interface web dynamique permettant la selection de données d'un fichi - Guide
- Requête select des données avec un critère de date-system ✓ - Forum - SQL
- Comment faire une selection des données d'une database SQLite à partir du code j ✓ - Forum - Java
- Erreur Recordset selection de données VB6 base Access ✓ - Forum - Visual Basic 6
- [VBA excel] sélection de données séparées par des ; ✓ - Forum - Visual Basic 6
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.