Discussion :

[Faror]

Bonjour à tous!

Je vous explique mon problème, dans mon programme je souhaite récupérer un ActiveCell qui vient d'une sous routine dans ma procédure, mais j'ai eu beau essaie plusieurs techniques ça ne marche pas.

J'avais éssayé ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim myApplication As Object
 
Sub concatIn(cellsNb, ecart)
 
    (...)
 
    ActiveCell.Offset(0, dplmHD).Activate 'on retourne dans la cellule intermédiaire
    ActiveCell.Clear
 
    Set myApplication = ActiveCell
End Sub
 
Sub ReorganisationLigne_1()
 
    Dim dplmHD As Integer
    dplmHD = 14
    (...)
    '---------Concatenation des deux premieres cellules dans la premiere-------------
    Call concatIn(dplmHD, ecart)
 
    '---------Suppression de la deuxieme cellule-------------
    myApplication.Offset(0, dplmHG).Activate 'on retourne dans la deuxieme cellule qui a servi p
 
    (...)
End Sub

et ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub concatIn(cellsNb, ecart)
 
    (...)
 
    ActiveCell.Offset(0, dplmHD).Activate 'on retourne dans la cellule intermédiaire
    ActiveCell.Clear
 
End Sub
 
Sub ReorganisationLigne_1()
 
    Dim dplmHD As Integer
    dplmHD = 14
    (...)
    '---------Concatenation des deux premieres cellules dans la premiere-------------
    Call concatIn(dplmHD, ecart)
 
    '---------Suppression de la deuxieme cellule-------------
    ActiveCell.Offset(0, dplmHG).Activate 'on retourne dans la deuxieme cellule qui a servi p
 
    (...)
End Sub

C'est le ActiveCell de concatIn(cellsNb, ecart) que je veux récupérer dans ReorganisationLigne_1().

Quelqu'un peut m'aider svp?

Merci d'avance

[SfJ5Rpw8]

Bonsoir,
Travailler sur la cellule active n'est pas ne bonne idée si ce n'est pour faire un diaporama....



Utilise une variable range pour acceder as tes cellules cela te permet d'accéder a cete cellule sans avoir a te préoccuper de savoir si la bonne feuille est active ou pas et si elle le reste
Sinon pour ton code essai d'être plus clair sur tes besoins et exprime les en oubliant au maximun cette notion de cellule active.

[Faror]

Merci pour ta réponse,

Je ne souhaite pas faire un diaporama, j'ai juste besoin de récupérer le ActiveCell. Comment dois-je faire s'il vous plait?

Mon besoi nest vraiment de récuperer cet "ActiveCell" dans mon code je ne peux pas faire autrement pour réaliser ce que je veux faire.

Ce que j'aimerai vraiment savoir c'est si je dois récupérer un objet ou si normalement le "ActiveCell" reste le même apres le Call dans la procédure?

Merci d'avance

[SfJ5Rpw8]

Désolé je ne comprends pas tes besoin ... dit cela a nouveau sans utiliser le mot activecell ...

[Philippe Tulliez]

Bonjour,
Je suis du même avis que bbil.
En VBA il est parfaitement inutile d'utiliser Activate ou Select.
ActiveCell représente la cellule active. Si avec VBA l'on écrit sur d'autres cellules de la même feuille voir des cellules d'autres feuilles et ce sans utiliser Activate, ActiveCell est toujours à la même adresse.

Si vraiment tu veux absolument utiliser la méthode Activate alors il faut utiliser une variable objet de niveau Module par Dim maVariable as Range ou de niveau Projet par Public maVariable as Range (Voir exemple 2)

Pour les deux exemples, placer le curseur sur la cellule A1 et faire tourner la procédure A
Exemple 1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub a()
 Debug.Print ActiveCell.Address
 b
End Sub
Sub b()
 Cells(1, 2) = "Toto"
 Debug.Print ActiveCell.Address
 c
End Sub
Sub c()
 Cells(11, 20) = "Coucou"
 Debug.Print ActiveCell.Address
 Cells(11, 20).Activate ' Ici par la méthode Activate l'adresse de la cellule active change
 Debug.Print ActiveCell.Address
End Sub

Exemple 2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
Dim StartCell As Range ' Variable objet représentant la cellule active
Sub a()
 Set StartCell = ActiveCell   ' Attribue la référence de la cellule Active à la variable   
 Debug.Print ActiveCell.Address
 b
End Sub
Sub b()
 Cells(1, 2) = "Toto"
 Debug.Print ActiveCell.Address
 c
End Sub
Sub c()
 Cells(11, 20) = "Coucou"
 Debug.Print ActiveCell.Address
 Cells(11, 20).Activate
 Debug.Print ActiveCell.Address
 StartCell.Activate     ' Revenir à l'adresse de départ
 Debug.Print ActiveCell.Address
End Sub

[Faror]

Merci beaucoup pour vos réponses. Alors pour répondre à ta question bbil, en fait je souhaite travailler dans ma procédure à partir d'une cellule qui est la dernière cellule utilisée dans ma fonction. Je souhaite donc récupérer cette cellule qui au passage correspond à la dernière cellule activée.

J'ai "résolu" mon problème d'une autre manière en récupérant l'adresse qui est une variable de type string mais plusieurs question se bousculent sur mes lèvres par rapport à ce que vous avez dit:

1. Pour récupérer mon ActiveCell j'aurai du créer une variable de type Object ou Range?
2. Range est un objet (classe) ou une collection?
3. Qu'est ce qu'une collection?
4. S'il est parfaitement inutile d'utiliser Activate ou Select que dois-je utiliser stp corona? Honnêtement je ne vois pas comment je puis m'en passer? Y a-t-il une méthode de substitution?

Merci d'avance