problème avec controle activex

Staple1600

XLDnaute Barbatruc

• 29 Novembre 2014

• #2

Re : problème avec controle activex

Bonjour à tous____________________EDITION: Bonjour job75

kademalin
Petit préambule ...🙄

Charte/Règlement des forums XLD
​

Pour tous

2 – Lorsqu’on rentre sur un fil, comme dans la vie de tous les jours, on est poli en disant « Bonjour ».

Cliquez pour agrandir...

EDITION: Avec ces modifications cela fonctionne
(j'ai mis en commentaire le renommage de la photo, je te laisse donc réadapter si ce renommage est nécessaire.)

VB:

Private Sub CommandButton1_Click()
Dim H1, H2 As Integer, Foto As Variant
If IsNumeric(ActiveCell.Offset(0, -1).Value) Then
H1 = ActiveCell.Offset(0, -1).Value - 1
H2 = (H1 * 60) + 50
'Foto = ActiveSheet.Range("A" & H1 + 2).Value
On Error GoTo Finerreur
With ActiveSheet.Shapes("Photo 1")
    .LockAspectRatio = msoFalse
    '.Name = "Photo " & Foto
    .Height = 62
    .Width = 60#
    .Left = 39
    .Top = H2
End With
Range("B" & H1 + 2).Select
GoTo fin
Finerreur:
MsgBox "Sélectionnez la photo d'identité à insérer!", vbInformation, "x" 'NomApp + Version
GoTo fin
Else
MsgBox "Rang manquant ou sélection cellule hors de la zône Photo!",  vbInformation, "x" 'NomApp + Version
End If
fin:
End Sub

 

Dernière édition: 29 Novembre 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Novembre 2014

• #3

Re : problème avec controle activex

Bonjour kadelmalin, Edit : salut JM,

Mettez la propriété TakeFocusOnClick du bouton ActiveX à False.

A+

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 29 Novembre 2014

• #4

Re : problème avec controle activex

Bonjour,
Veuillez accepter toutes mes excuses, j'étais horriblement désemparé et cela m'a fait oublier toute bienséance. Encore une fois je vous salue et vous remercie.
A+

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 29 Novembre 2014

• #5

Re : problème avec controle activex

Re Bonjour,
La solution de Job75 a fonctionné à merveille. Merci énormément.
A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Novembre 2014

• #6

Re : problème avec controle activex

Re

kadelmalin
Pour info : la mienne aussi
(je parle de ton code VBA que j'ai pris la peine de modifier et tester)
Tu ne l'as sans doute pas testé...🙄
Sympa et courtois de ta part.

PS: Au moins tu as testé l'ajout du Bonjour. C'est déjà cela 😉.

 

Dernière édition: 29 Novembre 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Novembre 2014

• #7

Re : problème avec controle activex

Re JM,

Faut pas te vexer, bien sûr que ta solution fonctionne 🙂

Mais celle de kadelmalin permet de choisir la photo 😎

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Novembre 2014

• #8

Re : problème avec controle activex

Re


job75
Loin de moi l'idée de me vexer 😉
Et j'avais signalé à kadelmalin

(j'ai mis en commentaire le renommage de la photo, je te laisse donc réadapter si ce renommage est nécessaire.)

Cliquez pour agrandir...

Encore faut-il qu'il teste le code déposé dans le message #2.

Je suis simplement étonné que des membres inscrits depuis plus de 5 cinq oublient formule de politesse et ne prenne pas de tester toutes les solutions soumises.

PS: Tu me diras que dans ce cas je m'étonne parfois moi-même 😉😛😱🙂

 

Dernière édition: 29 Novembre 2014

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 30 Novembre 2014

• #9

Re : problème avec controle activex

Bonjour chers amis,
Je n'ai jamais douté de l'exactitude des solutions que vous m'avez proposées et je vous en remercie; seulement la solution de Job75 était la plus courte et la plus appropriée, je n'avais aucune modification à effectuer dans la macro.
Salutations amicales

 

Vote positif 0 Vote négatif