Ecrire le contenu de 2 cellules dans un msgbox

Re : Ecrire le contenu de 2 cellules dans un msgbox

Bonjour Christian

Essaie le code ci dessous


Bon week end
@+

Re : Ecrire le contenu de 2 cellules dans un msgbox

Merci Pierrot,
Cela fonctionne bien pour la cellule définie mais pas pour une autre cellule de la même ligne (cause de offset -1...-2)
Cela est expliqué dans le fichier joint de mon premier message.
Merci encore Naitsirhc

Re : Ecrire le contenu de 2 cellules dans un msgbox

Bonjour le fil,
peut etre comme ça,fichier joint
salut
Yves
Ps:Ce code fonctionne quelque soi la cellule active

Re : Ecrire le contenu de 2 cellules dans un msgbox

Re Christian

Ok, j ai modifié un peu le code. A tester si cela te conviens


@+

Re : Ecrire le contenu de 2 cellules dans un msgbox

Yves et Pierrot,
Tous les deux merci, cela fonctionne avec un petit problème mais solutionné avec fichier de Pierrot:
Avec la souris, en activant une cellule on peut par accident intitialiser 2,3...cellules si on se déplace dans la col tout en maintennant le click gauche enfoncé: dans ce cas la référence du livre s'incrit dans 2,3,...cellules (ce qui n'est pas correct)
Dans la macro de Pierrot: ajout de t = ActiveCell.Select et tout s'arrange (le code s'inscrit que dans la première cellule initialisé et non pas ailleurs)
Je n'ai pas essayé dans la macro de Yves.

Une autre question: peut-on modifier l'apparence d'un msgbox (dimensions fenêtre, taille caractères, couleur....) mais je vais ouvrir une nouvelle discussion.
Merci encore et bravo
Christian

Re : Ecrire le contenu de 2 cellules dans un msgbox

bonjour,
j'essai même si le message date un peu...
comment utiliser ce code :

Code:
Sub Introduire_code_new()
Dim t As Double

If ActiveCell.Column = 3 Then

t = Application.InputBox(CStr(ActiveCell.Offset(0, -1)) & " " & CStr(ActiveCell.Offset(0, -2)) _
& " souhaite emprunter le livre:", "REFERENCE DU LIVRE", , 420, 320, Type:=1)
ElseIf ActiveCell.Column = 5 Then
t = Application.InputBox(CStr(ActiveCell.Offset(0, -3)) & " " & CStr(ActiveCell.Offset(0, -4)) _
& " souhaite emprunter le livre:", "REFERENCE DU LIVRE", , 420, 320, Type:=1)
Else
End If

If Not t = 0 Then Selection = t

End Sub

Cliquez pour agrandir...

la seul difference c'est que je puisse inscrire du texte dans le messagebox?
merci pour votre aide.