tester le contenue d'une cellule excelRésolu

Question

Bonjour, j'ai un petit problème. Je souhaite faire un test sur la colonne K, il faut que je teste les cellules contenant quelquechose et je ne sais pas comment l'ecrire en VBA.
Si quelqu'un peut m'aider?

Merci d'avance

jrivet · Accepted Answer

Salut,


Essaie ceci.


Ca selectionne la colonne K et affiche le contenu des cases non vides.




Dim LaCase As Range 
Columns("K:K").Select 
For Each LaCase In Selection 
    If LaCase.Text <> "" Then MsgBox LaCase.Text 
Next 
  







@+, Julien
Pensez: Règlement/STRONG>

tortuegenie · Answer

Merci jrivet,


Je me compliquai la vie en essayant des SpecialCell(xlCellBlanks) .... alors que ton code est beaucoup plus simple à comprendre et à utiliser.Merci

jrivet · Answer

Salut,


Mais de rien nous sommes là pour ça. content d'avoir pu t'aider.


@+ sur le forum

@+, Julien
Pensez: Règlement/STRONG>

tortuegenie · Answer

Dsl encore une question jrivet,


Dans ton code coment je fais pour commencer à partir de la ligne 7  et pas de la ligne 1 ?????

tortuegenie · Answer

laisser tomber c'est moi qui suis un peu "con par moment" merci pour ton aide!!!!

jrivet · Answer

Re, comme tu veux sinon j'aurais dit: Je n'est pas teste mais tu as deux possibilité personnellement j'opterais pour la premiere. 1) (a partir du code précédent tu ajoute simplement le teste de la ligne) soit: Dim LaCase As Range Columns("K:K").Select For Each LaCase In Selection If (LaCase.Row >= 7) And (LaCase.Text <> "") Then MsgBox LaCase.Text Next Coloration syntaxique automatique [AFCK] 2) sinon tu change la maniere de definir ta selection de recherche. Dim LaCase As Range ' Range("K7").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select For Each LaCase In Selection If (LaCase.Text <> "") Then MsgBox LaCase.Text Next Coloration syntaxique automatique [AFCK] @+, Julien Pensez: Règlement/STRONG> /STRONG>

Tester le contenue d'une cellule excel

6 réponses

Votre réponse

Discussions similaires