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

ninbihan

XLDnaute Impliqué

• 23 Décembre 2009

• #2

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

 

Vote positif 0 Vote négatif

N

nicoco3101

Guest

• 23 Décembre 2009

• #3

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

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 23 Décembre 2009

• #4

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

Bonjour,

pour ne pas rester dans une virée interminable :

Code:

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

 

Vote positif 0 Vote négatif

N

nicoco3101

Guest

• 23 Décembre 2009

• #5

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 23 Décembre 2009

• #6

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

Code:

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+

 

Vote positif 0 Vote négatif

N

nicoco3101

Guest

• 23 Décembre 2009

• #7

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é"

 

Vote positif 0 Vote négatif

N

nicoco3101

Guest

• 23 Décembre 2009

• #8

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 =)

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 23 Décembre 2009

• #9

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:

Code:

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😀

 

Vote positif 0 Vote négatif

N

nicoco3101

Guest

• 23 Décembre 2009

• #10

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...

 

Vote positif 0 Vote négatif

N

nicoco3101

Guest

• 23 Décembre 2009

• #11

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

*oups désolé pour l'ortographe

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 23 Décembre 2009

• #12

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

RE,

Jean-Marcel à dit:

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

Cliquez pour agrandir...

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

A+++

 

Vote positif 0 Vote négatif