Discussion :

[gilles06]

Bonjour,

J'ai un probleme avec cette commande:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lastligne = Range("d" & ligne).End(xlDown).Row

En fait je cherche a connaitre la prochaine cell non null apres la current(je commence en row 7 et j'incremente), et cette derniere ne fonctionne pas tout le temps de la meme facon. D'apres la doc c'est equivqlent a END+DOWN ARROW. Si je me met en d7 et je fais END+DOWN ARROW je devrais me retrouver en d8 or je me retrouve en D9. Pourquoi ??
J'ai peut-etre mal compris cette fonction.

Ci-joint le fichier excel

Merci de votre aide.

[Singular]

Il n'y a rien en D8?

[gilles06]

Exact, il faut lire la collumn C et non D

[Singular]

Donc si tu part de C7, tu te retrouves en C9 parce que c'est la dernière ligne qui contient des données... c'est à ça que sert le End(xlDown)

[gilles06]

OK ! J'avais mal compris l'utilisation de cette commande. Ma question alors est comment passer de cellule en cellule (comme en utilisant Arrow down), car VBA me passe de ligne en ligne. En fait je voudrais connaitre le contenu de ma cellule suivante (ne sachant pas combien de ligne elle peut avoir).
Comment faire ? Y a t-il une commande speciale pour ca (comme arrow down) ?

Merci d'avance

[Jean-Philippe André]

bonjour,
tu as la fonction offset qui répond à ton énoncé

[gilles06]

Cette fonction marche tres bien pour des cellules qui se suivent, mais pas si j'ai une cellule merged comme en c9. En fait en c9 la fonction me donne 0704 en en c10 elle me donne "empty", alors que ca devrait etre 0706.

[Jean-Philippe André]

hum, étais-je sensé ouvrir le fichier excel pour comprendre ton pb ?
tu fais une boucle for avec un test isempty sinon...

[Singular]

Essayes ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Descendre()
    Static rngPrevCell As Range
 
    If Selection.Rows.Count > 1 Then
        Cells(ActiveCell.Row + Selection.Rows.Count, _
                IIf(rngPrevCell Is Nothing, ActiveCell.Column, rngPrevCell.Column)).Select
    Else
        Set rngPrevCell = ActiveCell
        ActiveCell.Offset(1, 0).Select
    End If
End Sub

[gilles06]

En fait je voudrais connaitre le nombre de lignes qu'il y a dans une cellule, est-ce possible et si oui comment ?
De cette facon je pourrais jumper de cellule en cellule quel que soit le nombre de lignes dans chaque cell.

Merci

[Qwazerty]

SAlut
J'ai pas retrouver mais il y avait un poste y'a quelque heure/jour a se sujet
Je pense que ceci repond a ta question

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Plage As Range
Set Plage = Range("C9").MergeArea
i% = Plage.Count

MergeAera represente la plage de cellule fusionnées contenant C9
Count te donne alors le nombre de cellule fusionnées

A++
Qwaz

[gilles06]

Super ! C'est exactement ce que je cherchais.

Merci beaucoup !

A+