Problème fonction Range(Cells(Ligne, 1), Cells(Ligne, Colonne))

[nicoco3101]

Bonjour,

je n'arrive pas à faire fonctionner cette partie de VBA:

Ligne = 2
Colonne = 4

While Cells(Ligne, Colonne) <> Empty
If Range(Cells(Ligne, 1), Cells(Ligne, Colonne)).ColumnWidth > 146 Then
Cells(253, 1) = "marge dépassé"
Else
Cells(254, 1) = "marge ok"
End If
Colonne = Colonne + 1
Wend


En effet mon but est de dire tant que les cellules(ligne,colonne) ne sont pas vide alors:

si la somme de la largeur totale de ces cellules(non vides) est >146
"marge de la pâge dépassée"
sinon
"marge ok"


C'est la fontion Range(Cells(Ligne, 1), Cells(Ligne, Colonne)) qui me pose problème...

J'espère que vous pourrez m'aider

Cordialement

 

[ninbihan]

Re : Problème fonction Range(Cells(Ligne, 1), Cells(Ligne, Colonne))

Bonjour le forum, bonjour nicoco

Peut être comme ceci:
Range(Cells(Ligne, 1).address & ":" & Cells(Ligne, Colonne).address)
Je n'ai pas testé...

Bon aprés midi,

Ninibihan

 

[nicoco3101]

Re : Problème fonction Range(Cells(Ligne, 1), Cells(Ligne, Colonne))

MErci à vous deux pour ces réponses.

J'essaye ça desuite.

Je vous tiens au courant des résultats

 

[Lii]

Re : Problème fonction Range(Cells(Ligne, 1), Cells(Ligne, Colonne))

Bonjour,

pour ne pas rester dans une virée interminable :

Sub test()
  Ligne = 2
  Colonne = 4
  n = 0
  [A253:A254].ClearContents
  While Cells(Ligne, Colonne) <> Empty
    n = n + Cells(Ligne, Colonne).ColumnWidth
    Colonne = Colonne + 1
  Wend
  If n > 146 Then
    [A253] = "marge dépassée de " & n - 146
  Else
    [A254] = "marge ok, reste  " & 146 - n
  End If
End Sub

 

[nicoco3101]

Re : Problème fonction Range(Cells(Ligne, 1), Cells(Ligne, Colonne))

J'ais remagné la version de Jean-Marcel et j'y suis parvenu, enfin !!! merci beaucoup =)

Voilà ce que ça donne:

Ligne = 2
Colonne = 1
While Cells(Ligne, Colonne) <> Empty

SommeDesColonnes = SommeDesColonnes + Cells(Ligne, Colonne).ColumnWidth
Colonne = Colonne + 1

Wend

If SommeDesColonnes > 140 Then
Cells(253, 1) = "marge dépassé"
Else
Cells(254, 1) = "marge ok"
End If


Mes cellule(ligne, 2) et cellule(ligne,3) étaient vides, je les ais remplie avec un texte blanc afin de me faciliter la chose. et cela marche je suis vraiment content.

Merci Lii pour votre réponse mais les cellules (253,1) et (254,1) me servaient de tests.

J'aimerais maintenant afficher ces textes en message, admettons une fenêtre qui s'ouvre temporairement. Est-ce possible?


Encore merci de votre aide

 

[Guest]

Re : Problème fonction Range(Cells(Ligne, 1), Cells(Ligne, Colonne))

Bonjour à tous,

Construit un petit userForm avec un label nommé ici LabelMsg dans lequel tu afficheras le message que tu veux.
Tu appelles la macro comme ceci

PetitMessage "Cette fenêtre se fermera dans quelques secondes", 3

Sub PetitMessage(StrMessage as String, Optional Secondes as byte = 2)
    Dim t
    UserForm1.LabelMsg = strMessage
    UserForm1.Show vbModeless
    t = Time()
    Do
        DoEvents
    Loop While Time < t + TimeSerial(0, 0, [B]Secondes[/B])
    Unload UserForm1
End Sub

A+

 

[nicoco3101]

Re : Problème fonction Range(Cells(Ligne, 1), Cells(Ligne, Colonne))

Merci Hasco de votre aide,

Mais je ne comprends pas grand chose hihi

est-ce possible d'afficher un message a la suite d'une condition SI?

ou même tout simplement ouvrir un fichier bloc note avec écrit " le message souhaité"

 

[nicoco3101]

Re : Problème fonction Range(Cells(Ligne, 1), Cells(Ligne, Colonne))

ahhh super Jean marcel !! décidément vous m'êtes d'une grande aide =)

 

[Guest]

Re : Problème fonction Range(Cells(Ligne, 1), Cells(Ligne, Colonne))

Re bonjour,

La solution de Jean-Marcel est pas mal et t'évite la construction d'un userForm.

Sinon:

Sub TaMacro()
Ligne = 2
Colonne = 1
While Cells(Ligne, Colonne) <> Empty
SommeDesColonnes = SommeDesColonnes + Cells(Ligne, Colonne).ColumnWidth
Colonne = Colonne + 1
Wend
If SommeDesColonnes > 140 Then
    PetitMessage "Marges dépassées", 3
Else
    PetitMessage "Marges Ok", 3
End If
 
End Sub
 
Sub PetitMessage(StrMessage As String, Optional Secondes As Byte = 2)
    Dim t
    Beep
    UserForm1.LabelMsg = StrMessage
    UserForm1.Show vbModeless
    t = Time()
    Do
        DoEvents
    Loop While Time < t + TimeSerial(0, 0, Secondes)
    Unload UserForm1
End Sub

A+

[Edition] Salut Jean-Marcel😀

 

[nicoco3101]

Re : Problème fonction Range(Cells(Ligne, 1), Cells(Ligne, Colonne))

Oui celle de Jean-Marcel me va très bien.

Mais par curiosité, comment fais ton L'userform.
J'aimerais voir comme fonctionne la votre mais on me signal une erreur concernant Label.Msg...

 

[nicoco3101]

Re : Problème fonction Range(Cells(Ligne, 1), Cells(Ligne, Colonne))

*oups désolé pour l'ortographe

 

[Guest]

Re : Problème fonction Range(Cells(Ligne, 1), Cells(Ligne, Colonne))

RE,

En espérant que Hasco ne m'en voudra pas 😀😀😀😀

Bien au contraire. J'étais occupé ailleurs...

A+++