Selection de données par unions.
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 166 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.
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Base de données javascript - Conseils pratiques -Javascript
- Nomenclature base de données - Conseils pratiques -PHP
- Connexion base de données - Conseils pratiques -PHP
- Afficher les données d'une base de données dans un tableau php ✓ - Forum PHP
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.