Sélectionner toutes les cellules d'une non vides

[Jetlager]

Bonjour

Afin de préparer une procédure, j'aimerais
lancer une instruction qui :
sélectionne l'ensemble des cellules de ma feuille.

Je essaye de trouver dans le forum mais bizarrement je ne trouve pas.

Merci bonne journée

 

[GIBI]

Bonjour,



pour selectionner un ensemble de cellules contigü via le menu ==> edition/atteindre/cellules/zone en cours


en VB

Range('A1').Select
Selection.CurrentRegion.Select <===
NbrLig = Selection.Rows.Count


Remarque : il faut que les cellules soit contigüs ==> pas de ligne(s) ou de colonne(s) blanche(s)

Simple Non!

 

[Jetlager]

Un grand merci
ça fonctionne mieux même que ce que je n'espèrais, car j'avais manipulé mes colonnes au préalable pour ne retenir que 4 colonnes en A B C D que je dois importer dans une table acces.

Comme il y a une rupture de colonnes entre celle que j'ai sélectionnées et celle dont je n'ai plus besoin, j'ai donc un résultat de uniquement 4 colonnes selectionnées.

Maintenant, mon problème est de supprimer par VB tous les espaces à gauche et à droite qui se trouvent dans les cellules de ces 4 colonnes sélectionnées.
Par la fonCtion suprespaces pas de problème ça marche mais uniquement cellule par cellule.

La fonction trim marche aussi dans vb excel.
Mais je rame pour l'appliquer dans un module ACCES.

Il me renvoie toujours une erreur sur l'instruction .TRIM


Je commence à désespérer.....

 

[GIBI]

bonjour,


essaie ceci sur la selection

For Each C In Selection
C.Value = Trim(C)
Next


yapadekoi!