Selection ligne active

[mrakh]

Bonjour à tous,

J'ai un petit soucis dans Excel pour une macro.
J'aimerai sélectionner une cellule donnée.

Cette cellule fait partit de la dernière ligne remplie et se trouve colonne 29.

En fait j'aimerai la selectionner pour comparer sa valeur.

Quelqu'un pourrait me donner un coup de main ?

Merci d'avance.

Cordialement,

 

[tototiti2008]

Re : Selection ligne active

Bonjour mrakh,

tu n'as pas besoin de sélectionner une cellule pour lire sa valeur

Msgbox Cells(65536,29).end(xlup).value

Edit : Bonjour PierreJean, Bonjour Robert 🙂
3 Barbatrucs pour le prix d'un 😉

 

[pierrejean]

Re : Selection ligne active

bonjour mrakh

A tester:

valeur=Cells(65536,29).end(xlup).value

Edit: Salut Tototiti désolé pour la collision

 

[Robert]

Re : Selection ligne active

Bonjour Mrakh, bon jour le forum,

Essai comme ça :

Cells(65536,29).End(xlUp).Select

Édition :

Arf... Bonjour Tototiti et Pierrejean !

 

[mrakh]

Re : Selection ligne active

Merci pour vos réponses.

Mais malheureusement cela ne fonctionne pas.

Je vous mets un extrait de mon code pour que vous compreniez mieux.

'Ecriture dans le tableau

With Sheets("RAS_Records")
Dl = .Range("A65000").End(xlUp).Row
.Cells(Dl, 12) = UserForm2.TextBox1.Value
.Cells(Dl, 13) = k
.Cells(Dl, 14) = UserForm2.TextBox2.Value
.Cells(Dl, 15) = UserForm2.TextBox3.Value
.Cells(Dl, 18) = UserForm2.TextBox4.Value
.Cells(Dl, 20) = UserForm2.TextBox5.Value
.Cells(Dl, 22) = UserForm2.TextBox6.Value

End With

'Justif On time

If Cells(65536, 29).End(xlUp).Value = "NO" Then
UserForm7.Show
Else
UserForm2.Hide
UserForm1.Show
End If

 

[pierrejean]

Re : Selection ligne active

Re

il ne serait deja pas idiot de mettre un point (.) devant Cells...
Ensuite le code, sans le fichier, ne permet pas de se prononcer a coup sur !!!

 

[tototiti2008]

Re : Selection ligne active

Re,

Mais malheureusement cela ne fonctionne pas.

ça ne marche pas comment ? ça plante ?

peut-être comme ça

'Ecriture dans le tableau
 
With Sheets("RAS_Records")
Dl = .Range("A65000").End(xlUp).Row
.Cells(Dl, 12) = UserForm2.TextBox1.Value
.Cells(Dl, 13) = k
.Cells(Dl, 14) = UserForm2.TextBox2.Value
.Cells(Dl, 15) = UserForm2.TextBox3.Value
.Cells(Dl, 18) = UserForm2.TextBox4.Value
.Cells(Dl, 20) = UserForm2.TextBox5.Value
.Cells(Dl, 22) = UserForm2.TextBox6.Value
 
 
'Justif On time
 
If [COLOR=red][B].[/B][/COLOR]Cells(65536, 29).End(xlUp).Value = "NO" Then
UserForm7.Show
Else
UserForm2.Hide
UserForm1.Show
End If 
[COLOR=red][B]End With[/B][/COLOR]

 

[mrakh]

Re : Selection ligne active

Il ne connait pas le .Cells

Erreur de compilation, Référence incorrecte ou non qualifiée.

 

[tototiti2008]

Re : Selection ligne active

Re,

même en déplaçant le End With ? (en rouge dans mon dernier post)

 

[mrakh]

Re : Selection ligne active

Même avec cette modif.
Je n'ai pas d'erreur mais la userform7 ne se lance pas.

 

[Robert]

Re : Selection ligne active

Bonjour le fil, bonjour le forum,

As-tu essayé de lancer l'Userform7 indépendamment de ce code. En la sélectionnant dans VBE et en appuyant sur F5 par exemple ? Peut-être le bug vient-il de l'initialisation de cette UserForm tout simplement...

 

[job75]

Re : Selection ligne active

Bonjour mrakh, salut tototiti, pierrejean, Robert,

Sans fichier ça risque de trainer en longueur, mais de toute façon mieux vaut écrire :

If .Cells([COLOR="Red"]Dl[/COLOR], 29).Value = "NO" Then

Ainsi on est sûr d'être sur la même ligne...

A+

 

[tototiti2008]

Re : Selection ligne active

Bonjour job75,
Re,

@job : en effet, bonne idée, on ne doit pas se trouver sur la même ligne et c'est ça qui doit poser problème

 

[mrakh]

Re : Selection ligne active

Tout fonctionne autant pour moi je m'étais trompé de colonne...

Pardonnez au boulet que je suis...

En tout cas merci à vous tous et bonne journée.