Chercher dans la colonne la prochaine celulle non vide

C

CHti160

Guest

• 27 Septembre 2004

• #2

Salut"Karim"
re le "FORUM"
en pièce jointe
un exemple simple qui peut être adapté....
A+++
Jean Marie

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 27 Septembre 2004

• #3

Oups La pièce jointe la voilà
A+++
Jean Marie

 

Pièces jointes

• RechercheV1.zip

  7.1 KB · Affichages: 28
• RechercheV1.zip

  7.1 KB · Affichages: 34
• RechercheV1.zip

  7.1 KB · Affichages: 31

Vote positif 0 Vote négatif

M

Michel_M

Guest

• 27 Septembre 2004

• #4

Bonjour Karim, Jean-marie

une macro qui te donne toutes les cellules non vides de la colonne "A";
avec des fonctions texte, on trouve la 2° référence (j'ai la flemme...)

Sub nonvide()

Dim var As String

var = Range("A1").SpecialCells(xlCellTypeConstants, 23).Address

MsgBox var
End Sub

Il y a d'autres variantes encore que ces 2 solutions (JM et MM) avec . par exemple .find

A+

Michel

 

Vote positif 0 Vote négatif

K

Karim

Guest

• 27 Septembre 2004

• #5

merci de vos réponses mais cela ne résoud pas mon pb...
En effet, avac vos méthodes, il faut que je connaisse la plage dans laquelle chercher, et je ne la connnais pas, elle change à chaque fois, c'est pour ça que j'ai essayé avec une boucle.
Et la méthode Michel_M, elle ne va pas non plus car elle me donne toute les adresses des cellules non vides, et moi je ne veux que celle qui suit...
Merci d'avance

 

Vote positif 0 Vote négatif

M

Michel_M

Guest

• 27 Septembre 2004

• #6

Re Karim

Je t'ai écrit que j'avais la flemme de chercher une fonction texte: tu peux chercher aussi, c'est pour toi le job

D'autre part :la deuxième cellule par rapport à quelle cellule non vide ?

Michel

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 27 Septembre 2004

• #7

re "salut"
bonsoir "Michel_M"
c'est vraiment pas évident ,sans pièce jointe pour expliquer un peu
Car on croit avoir compri et on est à coté.Donc joindre une explication par fichier c'est mieux ;0)
A+++
Jean Marie

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 27 Septembre 2004

• #8

bonsoir tout le monde


une idée :

Public Sub karim()
Dim cel As Range
For Each cel In Range("a2:a500")
If cel.Value <> "" And cel.Offset(-1, 0) = "" Then
MsgBox cel.Address
End If
Next cel
End Sub


donne l'addresse d'une cellule si la cellule au dessus est vide (laissé a1 vide).

salut
Hervé

 

Vote positif 0 Vote négatif

K

Karim

Guest

• 28 Septembre 2004

• #9

C'est bon, j'ai trouvé!
Merci de vos conseils, et la prochaine fois que je posterais, je donnerais un vrai exemple!
Merci
@+

 

Vote positif 0 Vote négatif

M

Mickael

Guest

• 28 Septembre 2004

• #10

Bonjour à tous,

Karim, serait-il possible d'avoir ta solution ?
Je rencontre le même problème que toi actuellement, ton aide serait précieuse.
Cordialement.

 

Vote positif 0 Vote négatif

K

Karim

Guest

• 1 Octobre 2004

• #11

Bonjour,

Voici comment j'ai fait, c'est tt simple en fait!:

----------
10









125
-----------

Sub TEST()

Dim A As Range, c As Range
Dim B As Integer

Set A = Range("A1")
B = 1
While A.Offset(B) = ""

B = B + 1
Set c = A.Offset(B)

Wend
MsgBox c
End Sub

 

Pièces jointes

• test.zip

  6.2 KB · Affichages: 31
• test.zip

  6.2 KB · Affichages: 33
• test.zip

  6.2 KB · Affichages: 35

Vote positif 0 Vote négatif