> Tous les forums > Forum Bureautique
 Recherche cellule non videSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Marmotte18
  Posté le 27/10/2005 @ 17:40 
Aller en bas de la page 
Astucien

Bonsoir, Supposons que dans l'une quelconque des 65536 lignes et 256 colonnes d'une feuille Excel, il existe une cellule non vide. Comment peut-on savoir par VBA et avec très grande rapidité d'exécution, les N° de ligne et de colonne de cette cellule ?

Modifié par Marmotte18 le 27/10/2005 17:46
Publicité
galopin01
 Posté le 27/10/2005 à 20:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
Bonjour, Ta question suppose qu'il n'y à qu'une seule cellule vide ? ou tout au moins très, très peu. C'est très simple :[code]Sub test() MsgBox Cells.SpecialCells(xlCellTypeBlanks).Address End Sub[/code] On peut aussi restreindre à une sélection :[code]Sub test() MsgBox Selection.Cells.SpecialCells(xlCellTypeBlanks).Address End Sub[/code] Sinon il faut envisager des méthodes plus complexes. A+
Marmotte18
 Posté le 28/10/2005 à 16:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Merci galopin01 Grâce à ton aide, j'ai pu finaliser le résultat que j'attendais : [code]Sub AdresseCellule() 'Adresse de la seule cellule non vide de la feuille '-------------------------------------------------- Dim Adresse As String, I As Byte Dim Lig As Long, Col As Long Dim PosC As Byte 'Récupération de l'adresse de cette cellule sous la forme RnCn Adresse = Cells.SpecialCells(xlTextValues).Address(ReferenceStyle:=xlR1C1) 'Recherche de l'emplacement du C For I = 1 To Len(Adresse) If Mid(Adresse, I, 1) = "C" Then PosC = I Next I Lig = Mid(Adresse, 2, PosC - 2) Col = Mid(Adresse, PosC + 1, Len(Adresse)) MsgBox ("Ligne = " & Lig & " Colonne = " & Col) End Sub[/code]
galopin01
 Posté le 28/10/2005 à 16:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
Oui, Une méthode un peu plus simple :[code]Sub test() Dim iR&, iC% iR = Cells.SpecialCells(xlTextValues).Row iC = Cells.SpecialCells(xlTextValues).Column MsgBox "La cellule non vide est Ligne : " & iR & " Colonne : " & iC End Sub[/code] A+

Modifié par galopin01 le 29/10/2005 06:09
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
copier ligne si cellule vide
Rendre une cellule vide
sélectionner la première cellule vide d'une colonne
Supprimer le 0 pour rendre la cellule vide
selectionner derniere cellule non vide.
Imprimer cellule non vide
si cellule vide mettre 0
Excel : cellule vide et cellule non remplie
Recherche cellule
recherche cellule fusionnee
Plus de sujets relatifs à Recherche cellule non vide
 > Tous les forums > Forum Bureautique