selectionner la première celulle

Question

bonjours,

je souhaiterais pouvoir sélectionner la première cellule en haut à gauche.
suite à une selection.

voici mon code:

Windows("fichier").Activate
Worksheets("nom feuil").Activate
Set tbl= ActiveCell.CurrentRegion
tbl.offset(1,0).Resize(tbl.Rows.Count-1, tbl.Columns.Count).Select

merci bonne soirée

jordane45 · Answer

Bonjour,

tu peux utiliser ton tbl comme suit : 
Set tbl = ActiveCell.CurrentRegion
' lire la valeur de la premiere cellule en haut à gauche
valeur = tbl(1, 1).Value
' Selectionner la premiere valeur en haut a gauche
tbl(1, 1).Select


Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

micku2b · Answer

bonjour,

ton code fonctionne mais pas totalement comme je le souhaiterais.

je t'esplique un peut plus en détail mon problème:

mon tableau fait pas loin de 800 ligne du coup j'utilise des filtres pour récupérer les informations qui m'intéresse.

ademetton que ma première ligne est la 2 et que je face afficher une info qui commence de la ligne 500 à 510.

On aura donc:

ligne2      type quantité marque
ligne500    coca 18       cocacola
.
.
.
.
ligne510   coca 1         pepsi
ligne801

moi je voudrais pouvoir selectionner la celulle coca 18  pour cette exemple.

avec ton code je retombe toujours sur type ou sur ce qui l'y a juste en dessous ligne3 en remplacent le 1 par 2.
pour infos avec les lignes de codes que j'ai marqué j'arrive bien a selectionner les lignes 500 à 510.

En faite mon problème est que je copie ces infos dans un autre classeur pour les consulters et les modifiers, sais après modification quand je veut le recopier que sa coïnce car les numéros de cellule ne correspond pas.

le message d'erreur est:(quand je le fait manuallement)
Impossible de coller les informations car les zones opier et de collage sont de forme et de taille différentes. Essayez l'une des opérations suivantes:
.cliquer sur une seul celulle puis collez.
.Séléctionner une zone rectangulaire de taille et de forme identiques à celles des informations puis coller

 

salutations,
micku2b

jordane45 · Answer

Bonjour,
oui pardon.
il faut en effet ne selectionner QUE les cellules visibles (apres filtre).

Set rngSelect = ActiveCell.CurrentRegion
'ne selectionne Que les cellules visibles ..
Set cel_visi = rngSelect.SpecialCells(xlVisible)
 valeur = cel_visi(2, 1)

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

micku2b · Answer

bonjour,

avec les infos que tu ma donnée j'obtiens sa:

Private Sub CommandButton1_Click()
 
    Windows("stock8.xlsx").Activate
    Worksheets("base de données").Activate
    
    Set tbl = ActiveCell.CurrentRegion
    tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
    
    Set rngSelect = ActiveCell.CurrentRegion
    Set cel_visi = rngSelect.SpecialCells(xlVisible)
    valeur = cel_visi(2, 1)

malheureusement sa ne marche pas.
Aucun changement se produit lors du passage des deux dernière ligne

salutation
micku2b

Selectionner la première celulle

4 réponses

Votre réponse

Discussions similaires