texte d'une cellule variable dans une msgbox

[Micke-31]

Bonjour,

Encore une fois je me tourne vers vos sages connaissances.
Je souhaiterai afficher dans une msgbox le texte contenu dans une cellule variable en fonction d'une condition.
Je remercie tous ceux qui se pencheront sur mon problème.


A+

 

[atlas]

Re : texte d'une cellule variable dans une msgbox

Boucler avec while jusqu'à rencontrer une cellule vide

Sub test()

Dim derlign As Integer

derlign = 1

Sheets("Feuil1").Select
Range("A1").Activate 'je demarre à A1

While ActiveCell.Value <> ""
'on descend d'une ligne
ActiveCell.Offset(1, 0).Activate

If Cells(derlign, 3).Value > Cells(derlign, 4) Then
MsgBox "En Colonne C la valeur " & Cells(derlign, 3).Value & "de" & Cells(derlign, 1).Value & " a dépassée la valeur " & Cells(derlign, 4).Value & " en colonne D "

End If
derlign = derlign + 1

Wend

End Sub

 

[Micke-31]

Re : texte d'une cellule variable dans une msgbox

Salut atlas,

merci pour ta réponse, en fait j'aurai dû te préciser que je souhaitai que ma macro démarre automatiquement lorsqu' un changement se produisait sue ma feuille, c'est pour cela que mon code était dans Worksheet avec l'option Worksheet_SelectionChange(ByVal Target As Range).
Si tu as encore une proposition, je suis preneur

A+

 

[Micke-31]

Re : texte d'une cellule variable dans une msgbox

SalutJean-Marcel,

Merci pour ce brillant code qui répond tout à fait à mes attentes et que je m'arrivait pas à écrire dans la Worksheet.
Petite remarque, lorsque la dernière ligne répond aux critères, elle est ignorée sauf si la cellule suivante en A contient une lettre. Y aurait il une solution, dans le cas contraire, ce n'est pas très grave il suffit de saisir une lettre ou une annotation.

Et serai t il possible d'insérer en début de code une fonction copier ci dessous

Range("D3😀50").Select
Selection.Copy
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues

En tout cas un grand MERCI.

A+

 

[Micke-31]

Re : texte d'une cellule variable dans une msgbox

Merci, c'est nickel, si je puis abuser encore des tes talents, y aurait il une solution pour compléter mon code.

Encore merci

A+

 

[Micke-31]

Re : texte d'une cellule variable dans une msgbox

Salut Jean-Marcel,

Encore merci pour ton implication cela me va très bien et plus simple que je ne pensais.

Merci et bonne fin de week-end

A+

 

[Micke-31]

Re : texte d'une cellule variable dans une msgbox

Salut Jean-Marcel,
encore moi, j'ai un petit soucis pour la mise en pratique de ton code, peut être pourras tu m'aider encore.

A+

 

[Micke-31]

Re : texte d'une cellule variable dans une msgbox

Salut Jean-Marcel,

Excuse du retard, j'ai été un peu souffrant à première vue ca colle.

Encore merci

A+