Sélectionner une cellule puis la transférer dans un userform

[patriick]

Bonjour, je souhaite sélectionner à la souris une cellule dans un tableau, puis cliquer sur un bouton qui ouvrira un userform dans le lequel apparaitra d'autre valeur se trouvant sur la même ligne de la feuille excel.
Je pensais réutiliser un bout de code mais çà plante lamentablement. comment simplement déjà récupérer la valeur de la cellule et la renvoyer dans l'userform?
Merci de votre aide et de votre patience

 

[PascalXLD]

Re : Sélectionner une cellule puis la transférer dans un userform

Bonjour

Dans le code d'initilaisation de ton uf

tu peux faire un truc du genre

maligne=activecell.row
textbox1=activecell.value
textbox2=range("C" & maligne)

etc

 

[patriick]

Re : Sélectionner une cellule puis la transférer dans un userform

Désolé cela ne marche pas car si une cellule est sélectionnée, quand je clique sur le bouton il y a déselection... et rien n'est transféré dans l'userform

 

[PascalXLD]

Re : Sélectionner une cellule puis la transférer dans un userform

Re


un petit test qui fonctionne chez moi

 

[patriick]

Re : Sélectionner une cellule puis la transférer dans un userform

Merci, tu as raison çà marche, je suis un boulet je n'avais initialisé le formulaire.

Je vais pouvoir tout recommencer à zéro.

Merci pour ton aide

 

[patriick]

Re : Sélectionner une cellule puis la transférer dans un userform

Dernier renseignement (en principe)
Est-il possible d'imposer une colonne pour le transfert des données? C'est à dire que si l'utilisateur sélectionne une autre cellule que dans la zone b6:b65000 l'ouverture de l'userform est refusée?

 

[PascalXLD]

Re : Sélectionner une cellule puis la transférer dans un userform

Re

Oui tu peux faire dans le code du bouton

If Not Intersect(ActiveCell, Range("B6:B65000")) Is Nothing Then UserForm1.Show

 

[patriick]

Re : Sélectionner une cellule puis la transférer dans un userform

Merci çà marche! merci l'application tourne pratiquement, je voulais peaufiner en remplaçant une valeur vrai faux résultant d'une chekbox par oui et non avec le code:

Dim CB As Integer 'Déclaration de variable "CB" pour transformer le vrai en "Oui"
CB = CheckBox1.Value
If CB = "Vrai" Then
CB = "OUI"
End If
.Range("Y" & L).Value = CB

Mais j'obtiens juste -1 et 0.

Comme j'ai pas de doc je merdouille encore.....

Merci d'avance

 

[PascalXLD]

Re : Sélectionner une cellule puis la transférer dans un userform

RE

essaies

If CheckBox1.Value = True Then
.Range("Y" & L) = "OUI"
End If

 

[skoobi]

Re : Sélectionner une cellule puis la transférer dans un userform

Bonjour patriick, Pascal,

tu as déclaré "CB" en tant que nombre entier, donc il renvoie 0 ou -1.

Je te propose plus court pour renvoyer "oui" ou "non" dans la cellule:

.Range("Y" & L).Value = IIf(CheckBox1, "oui", "non")

"IIf" correspond à la fonction "SI" d'excel.

 

[patriick]

Re : Sélectionner une cellule puis la transférer dans un userform

Merci de votre aide à tous