Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel activeCell

activeCell

10 réponses
Avatar
Shewy du 80 !!
Bonjour

J'ai un prob de sélection
Je fais une recherche dans une col, je trouve une valeur
La col reste et dois rester en sélection
Cependant j'ai besoin des valeurs se trouvant sur la ligne de la cell
active.
Point de départ: Totalement à gauche de là où jhe me trouve (donc Col A)
Point d'arrivée : 8 col plus loin

Les valeurs irons dans des textsbox par la suite.

MErci de votre AIde !!!



Voici la p"tite ligne de code mais ça marche po !

'Aller dans la 1ere colo de la ligne sur laquel le find s'est arreté
Range(activecelll, ActiveCell.End(xlToLeft)).Value

'Met les valeurs dans les label correspondant (seletion tjrs active)
For i = 1 To 8
Me.Controls("resultob" & i).Caption = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Next

--
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Rai
Shewy du 80 !! wrote:
Bonjour

J'ai un prob de sélection
Je fais une recherche dans une col, je trouve une valeur
La col reste et dois rester en sélection
Cependant j'ai besoin des valeurs se trouvant sur la ligne de la cell
active.
Point de départ: Totalement à gauche de là où jhe me trouve (donc Col
A) Point d'arrivée : 8 col plus loin

Les valeurs irons dans des textsbox par la suite.

MErci de votre AIde !!!



Voici la p"tite ligne de code mais ça marche po !

'Aller dans la 1ere colo de la ligne sur laquel le find s'est arreté
Range(activecelll, ActiveCell.End(xlToLeft)).Value

'Met les valeurs dans les label correspondant (seletion tjrs active)
For i = 1 To 8
Me.Controls("resultob" & i).Caption = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Next


Bonjour Chewy,


Un proposition de solution (non testée)

For i=1 to 8
Me.Controls("resultob" & i).CaptionÎlls(ActiveCell.Row , i).Value
Next i


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

Avatar
Lolote
Salut Shewy du 80,
Essaye cette procedure a coller dans un module.
Une fois ta cellule recherchée trouvée, les valeurs des 8 colonnes sont
stockées dans un tableau facilement récupérable pour tes textbox.


Sub RecupValeurColonne()
Dim F
Dim xTab(8)
For F = 0 To 7
xTab(F) = ActiveCell.Offset(0, F).Value
Next F
End Sub

@+ Lolote



"Shewy du 80 !!" <not> a écrit dans le message de news:
urra$
Bonjour

J'ai un prob de sélection
Je fais une recherche dans une col, je trouve une valeur
La col reste et dois rester en sélection
Cependant j'ai besoin des valeurs se trouvant sur la ligne de la cell
active.
Point de départ: Totalement à gauche de là où jhe me trouve (donc Col A)
Point d'arrivée : 8 col plus loin

Les valeurs irons dans des textsbox par la suite.

MErci de votre AIde !!!



Voici la p"tite ligne de code mais ça marche po !

'Aller dans la 1ere colo de la ligne sur laquel le find s'est arreté
Range(activecelll, ActiveCell.End(xlToLeft)).Value

'Met les valeurs dans les label correspondant (seletion tjrs active)
For i = 1 To 8
Me.Controls("resultob" & i).Caption = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Next

--





Avatar
papou
Bonjour
Modifie (PS : il y a un "l" de trop dans ton 1er ActiveCell)
Range(activecelll, ActiveCell.End(xlToLeft)).Value
Par

Range(activecell.address, ActiveCell.End(xlToLeft).address).Value

Cordialement
Pascal

"Shewy du 80 !!" <not> a écrit dans le message de
news:urra$
Bonjour

J'ai un prob de sélection
Je fais une recherche dans une col, je trouve une valeur
La col reste et dois rester en sélection
Cependant j'ai besoin des valeurs se trouvant sur la ligne de la cell
active.
Point de départ: Totalement à gauche de là où jhe me trouve (donc Col A)
Point d'arrivée : 8 col plus loin

Les valeurs irons dans des textsbox par la suite.

MErci de votre AIde !!!



Voici la p"tite ligne de code mais ça marche po !

'Aller dans la 1ere colo de la ligne sur laquel le find s'est arreté
Range(activecelll, ActiveCell.End(xlToLeft)).Value

'Met les valeurs dans les label correspondant (seletion tjrs active)
For i = 1 To 8
Me.Controls("resultob" & i).Caption = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Next

--





Avatar
Pascal Engelmajer
Salut,
Dim plage As Range
Dim cell As Range
Dim i As Integer
'.../...'
'> 'Aller dans la 1e colo de la ligne sur laquelle le find s'est arreté
'il eut mieux valu ne pas utiliser .Select mais directement une cellule...
' set trouve = cellDepart.Find(x,x;x)
'> Range(activecelll, ActiveCell.End(xlToLeft)).Value
Set plage = Range(ActiveCell, Cells(ActiveCell.Row, 1))
'set plage = Range(trouve,cells(trouve.row,1))
If plage.Cells.Count <> 8 Then
MsgBox "la cellule active doit être dans la colonne 8 ( ocho celle
de Che Guevara ?)", _
vbExclamation, "Remplissage des contrôles"
Else
For Each cell In plage
i = i + 1
Me.Controls("resultob" & i).Caption = cell.Value
Next cell
End If
'-
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Shewy du 80 !!" <not> a écrit dans le message de news:
urra$
Bonjour

J'ai un prob de sélection
Je fais une recherche dans une col, je trouve une valeur
La col reste et dois rester en sélection
Cependant j'ai besoin des valeurs se trouvant sur la ligne de la cell
active.
Point de départ: Totalement à gauche de là où jhe me trouve (donc Col A)
Point d'arrivée : 8 col plus loin

Les valeurs irons dans des textsbox par la suite.

MErci de votre AIde !!!



Voici la p"tite ligne de code mais ça marche po !

'Aller dans la 1ere colo de la ligne sur laquel le find s'est arreté
Range(activecelll, ActiveCell.End(xlToLeft)).Value

'Met les valeurs dans les label correspondant (seletion tjrs active)
For i = 1 To 8
Me.Controls("resultob" & i).Caption = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Next

--





Avatar
Shewy du 80 !!
Problème avec cette ligne : "utilisation incorrecte de la propriété Value

Merci quand meme !!


"papou" a écrit dans le message de
news:
Bonjour
Modifie (PS : il y a un "l" de trop dans ton 1er ActiveCell)
Range(activecelll, ActiveCell.End(xlToLeft)).Value
Par

Range(activecell.address, ActiveCell.End(xlToLeft).address).Value

Cordialement
Pascal

"Shewy du 80 !!" <not> a écrit dans le message de
news:urra$
Bonjour

J'ai un prob de sélection
Je fais une recherche dans une col, je trouve une valeur
La col reste et dois rester en sélection
Cependant j'ai besoin des valeurs se trouvant sur la ligne de la cell
active.
Point de départ: Totalement à gauche de là où jhe me trouve (donc Col A)
Point d'arrivée : 8 col plus loin

Les valeurs irons dans des textsbox par la suite.

MErci de votre AIde !!!



Voici la p"tite ligne de code mais ça marche po !

'Aller dans la 1ere colo de la ligne sur laquel le find s'est arreté
Range(activecelll, ActiveCell.End(xlToLeft)).Value

'Met les valeurs dans les label correspondant (seletion tjrs active)
For i = 1 To 8
Me.Controls("resultob" & i).Caption = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Next

--









Avatar
Shewy du 80 !!
Le problème dans ton code est que la col sélectionné se déselectionne
Je souhaite pourvoir récupérer les valeurs des cell sans bouger ma sélection

Car ensuite je fais un Find.next si valeur trouvé pas la bonne.

"Lolote" a écrit dans le message de
news:OeRa$%
Salut Shewy du 80,
Essaye cette procedure a coller dans un module.
Une fois ta cellule recherchée trouvée, les valeurs des 8 colonnes sont
stockées dans un tableau facilement récupérable pour tes textbox.


Sub RecupValeurColonne()
Dim F
Dim xTab(8)
For F = 0 To 7
xTab(F) = ActiveCell.Offset(0, F).Value
Next F
End Sub

@+ Lolote



"Shewy du 80 !!" <not> a écrit dans le message de news:
urra$
Bonjour

J'ai un prob de sélection
Je fais une recherche dans une col, je trouve une valeur
La col reste et dois rester en sélection
Cependant j'ai besoin des valeurs se trouvant sur la ligne de la cell
active.
Point de départ: Totalement à gauche de là où jhe me trouve (donc Col A)
Point d'arrivée : 8 col plus loin

Les valeurs irons dans des textsbox par la suite.

MErci de votre AIde !!!



Voici la p"tite ligne de code mais ça marche po !

'Aller dans la 1ere colo de la ligne sur laquel le find s'est arreté
Range(activecelll, ActiveCell.End(xlToLeft)).Value

'Met les valeurs dans les label correspondant (seletion tjrs active)
For i = 1 To 8
Me.Controls("resultob" & i).Caption = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Next

--









Avatar
Shewy du 80 !!
Nikel !!! Cette solution marche à la perfection

Merci Bcp !!!


"Rai" a écrit dans le message de
news:ca49fq$k3t$
Shewy du 80 !! wrote:
Bonjour

J'ai un prob de sélection
Je fais une recherche dans une col, je trouve une valeur
La col reste et dois rester en sélection
Cependant j'ai besoin des valeurs se trouvant sur la ligne de la cell
active.
Point de départ: Totalement à gauche de là où jhe me trouve (donc Col
A) Point d'arrivée : 8 col plus loin

Les valeurs irons dans des textsbox par la suite.

MErci de votre AIde !!!



Voici la p"tite ligne de code mais ça marche po !

'Aller dans la 1ere colo de la ligne sur laquel le find s'est arreté
Range(activecelll, ActiveCell.End(xlToLeft)).Value

'Met les valeurs dans les label correspondant (seletion tjrs active)
For i = 1 To 8
Me.Controls("resultob" & i).Caption = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Next


Bonjour Chewy,


Un proposition de solution (non testée)

For i=1 to 8
Me.Controls("resultob" & i).CaptionÎlls(ActiveCell.Row , i).Value
Next i


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

Avatar
papou
Dans ces conditions :
Cells(Activecell.Row,ActiveCell.End(xlToLeft).Column).Value

Cordialement
Pascal

"Shewy du 80 !!" <not> a écrit dans le message de
news:
Problème avec cette ligne : "utilisation incorrecte de la propriété Value

Merci quand meme !!


"papou" a écrit dans le message de
news:
Bonjour
Modifie (PS : il y a un "l" de trop dans ton 1er ActiveCell)
Range(activecelll, ActiveCell.End(xlToLeft)).Value
Par

Range(activecell.address, ActiveCell.End(xlToLeft).address).Value

Cordialement
Pascal

"Shewy du 80 !!" <not> a écrit dans le message de
news:urra$
Bonjour

J'ai un prob de sélection
Je fais une recherche dans une col, je trouve une valeur
La col reste et dois rester en sélection
Cependant j'ai besoin des valeurs se trouvant sur la ligne de la cell
active.
Point de départ: Totalement à gauche de là où jhe me trouve (donc Col
A)



Point d'arrivée : 8 col plus loin

Les valeurs irons dans des textsbox par la suite.

MErci de votre AIde !!!



Voici la p"tite ligne de code mais ça marche po !

'Aller dans la 1ere colo de la ligne sur laquel le find s'est arreté
Range(activecelll, ActiveCell.End(xlToLeft)).Value

'Met les valeurs dans les label correspondant (seletion tjrs active)
For i = 1 To 8
Me.Controls("resultob" & i).Caption = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Next

--













Avatar
Lolote
Salut Shewy du 80,
La ciolonne ne se déselectionne pas chez moi, mais je vois que tu as trouvé
dautres réponses.
@+ Lolote

"Shewy du 80 !!" <not> a écrit dans le message de news:

Le problème dans ton code est que la col sélectionné se déselectionne
Je souhaite pourvoir récupérer les valeurs des cell sans bouger ma
sélection


Car ensuite je fais un Find.next si valeur trouvé pas la bonne.

"Lolote" a écrit dans le message de
news:OeRa$%
Salut Shewy du 80,
Essaye cette procedure a coller dans un module.
Une fois ta cellule recherchée trouvée, les valeurs des 8 colonnes sont
stockées dans un tableau facilement récupérable pour tes textbox.


Sub RecupValeurColonne()
Dim F
Dim xTab(8)
For F = 0 To 7
xTab(F) = ActiveCell.Offset(0, F).Value
Next F
End Sub

@+ Lolote



"Shewy du 80 !!" <not> a écrit dans le message de news:
urra$
Bonjour

J'ai un prob de sélection
Je fais une recherche dans une col, je trouve une valeur
La col reste et dois rester en sélection
Cependant j'ai besoin des valeurs se trouvant sur la ligne de la cell
active.
Point de départ: Totalement à gauche de là où jhe me trouve (donc Col
A)



Point d'arrivée : 8 col plus loin

Les valeurs irons dans des textsbox par la suite.

MErci de votre AIde !!!



Voici la p"tite ligne de code mais ça marche po !

'Aller dans la 1ere colo de la ligne sur laquel le find s'est arreté
Range(activecelll, ActiveCell.End(xlToLeft)).Value

'Met les valeurs dans les label correspondant (seletion tjrs active)
For i = 1 To 8
Me.Controls("resultob" & i).Caption = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Next

--













Avatar
Shewy du 80 !!
ouai c bon avec la boucle for ça marche
mais en fait j'ai gardé ton bout de code, car ça m'a donné une idée autre
que celle que j'avais à l'autre bou de mon projet


"Lolote" a écrit dans le message de
news:
Salut Shewy du 80,
La ciolonne ne se déselectionne pas chez moi, mais je vois que tu as
trouvé

dautres réponses.
@+ Lolote

"Shewy du 80 !!" <not> a écrit dans le message de news:

Le problème dans ton code est que la col sélectionné se déselectionne
Je souhaite pourvoir récupérer les valeurs des cell sans bouger ma
sélection


Car ensuite je fais un Find.next si valeur trouvé pas la bonne.

"Lolote" a écrit dans le message de
news:OeRa$%
Salut Shewy du 80,
Essaye cette procedure a coller dans un module.
Une fois ta cellule recherchée trouvée, les valeurs des 8 colonnes
sont



stockées dans un tableau facilement récupérable pour tes textbox.


Sub RecupValeurColonne()
Dim F
Dim xTab(8)
For F = 0 To 7
xTab(F) = ActiveCell.Offset(0, F).Value
Next F
End Sub

@+ Lolote



"Shewy du 80 !!" <not> a écrit dans le message de news:
urra$
Bonjour

J'ai un prob de sélection
Je fais une recherche dans une col, je trouve une valeur
La col reste et dois rester en sélection
Cependant j'ai besoin des valeurs se trouvant sur la ligne de la
cell




active.
Point de départ: Totalement à gauche de là où jhe me trouve (donc
Col




A)
Point d'arrivée : 8 col plus loin

Les valeurs irons dans des textsbox par la suite.

MErci de votre AIde !!!



Voici la p"tite ligne de code mais ça marche po !

'Aller dans la 1ere colo de la ligne sur laquel le find s'est arreté
Range(activecelll, ActiveCell.End(xlToLeft)).Value

'Met les valeurs dans les label correspondant (seletion tjrs active)
For i = 1 To 8
Me.Controls("resultob" & i).Caption = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Next

--