Interdire valeur négative sous forme de macro

M

mimil

XLDnaute Junior

• 29 Juillet 2011

• #16

Re : Interdire valeur négative sous forme de macro

Un grand Merci Pierrot !!

J'ai une autre question qui n'a pas le mm rapport !!

Par rapport a ma PJ (aide__1)

Je ne sais pas comment ecrire pour dire que lorsque je choisi un mois de conso la valeur de la textbox s'affiche sur tte les lignes

Plus besoin de choisir un Bat

je choisi mois conso OCT puis je rentre une valeur dans la texbox et elle s'incremente dans les cellules de P7 a P14
Ainsi de suite pour les autres mois !!

Je pense qu'il ne faut pas toucher a la variable Col
mais modifié la varible li

MERCI

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2011

• #17

Re : Interdire valeur négative sous forme de macro

Re,

pas tout compris et ton bleu pas top... vois rien sur mon écran... regarde du coté de la propriété "listindex" de la combo, en fonction de l'élément sélectionné, doit te permettre de déterminer la colonne concerné, enfin si ton fichier est organisé de façon logique.....

 

Vote positif 0 Vote négatif

M

mimil

XLDnaute Junior

• 29 Juillet 2011

• #18

Re : Interdire valeur négative sous forme de macro

Ta raison ! mais sinon comment ecrire en macro

Si je rentre une valeur dans ma textbox en E7 par exemple , elle s'incremente sur chaque ligne de ma colonne

C pour simplifié !! car sinon je dois rsaisir une valeur et valider sur chaque ligne

Car sur mon vrai fichier j'ai 150 lignes :S

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2011

• #19

Re : Interdire valeur négative sous forme de macro

Re,

Si je rentre une valeur dans ma textbox en E7 par exemple

Cliquez pour agrandir...

dans une textbox ou dans la cellule E7 ??

 

Vote positif 0 Vote négatif

M

mimil

XLDnaute Junior

• 29 Juillet 2011

• #20

Re : Interdire valeur négative sous forme de macro

je rentre dans ma textbox et elle s'incremente en E7

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2011

• #21

Re : Interdire valeur négative sous forme de macro

Re,

peut être ceci, mais sûr d'avoir bien compris :

Code:

Sheets("nomfeuille").Range("E7").Value = TextBox1.Value

 

Vote positif 0 Vote négatif

M

mimil

XLDnaute Junior

• 29 Juillet 2011

• #22

Re : Interdire valeur négative sous forme de macro

Voici l'ecriture


li = Me.ComboBox1.ListIndex + 7 'définit la ligne qui correspond au bâtiment
col = (Me.ComboBox2.ListIndex) * 4 + 18 'définit la colonne (récupère la valeur stockée dans la colonne 1 de la ComboBox1)

Select Case col 'agit en fonction de la colonne col
Case 18 To 46 'si colonne K

End Select 'fin de l 'action en fonction de la cellule

With Sheets("Données")
Sheets("Données").Cells(li, col).ClearComments 'supprime un éventuel commentaire dasns la cellule (li, col)
Sheets("Données").Cells(li, col).Value = (Me.TextBox3.Value) 'place la valeur de la TextBox 3
End With


Cette ecriture me permet de choisir le bati puis le mois je rentre une valeur dans la textbox et elle s'incremente dans la cellule que je veux



Moi je veux choisir un mois, saisir valeur et elle s'incremente sur tout le mois

J'espére que c compréhensible

 

Vote positif 0 Vote négatif

M

mimil

XLDnaute Junior

• 29 Juillet 2011

• #23

Re : Interdire valeur négative sous forme de macro

Je penser faire

For li = 7 to 14 ' ligne de 7 a 14
Next

C-a-d la valeur de la textbox s'increment sur les lignes de 7 a 14


Mais ca marche pas

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2011

• #24

Re : Interdire valeur négative sous forme de macro

Re,

pour envoyer la vaeur contenu dans un textbox vers une plage de cellule :

Code:

Range("A1:A10").Value = TextBox1

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2011

• #25

Re : Interdire valeur négative sous forme de macro

Re,

pour ce cas, peut être ainsi :

Code:

Sheets("Données").Cells(li, col)Resize(8).Value = Me.TextBox3.Value 'place la valeur de la TextBox 3

li étant valorisé à 7

 

Vote positif 0 Vote négatif

M

mimil

XLDnaute Junior

• 29 Juillet 2011

• #26

Re : Interdire valeur négative sous forme de macro

je met li=7 ??

ca ne me valide pas ta formule elle est en rouge

Merci

 

Dernière édition: 29 Juillet 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2011

• #27

Re : Interdire valeur négative sous forme de macro

Re,

oui, ou tu remplaces "li" dans le "cells" par un 7

Sheets("Données").Cells(7, col)Resize(8).Value

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

mimil

XLDnaute Junior

• 29 Juillet 2011

• #28

Re : Interdire valeur négative sous forme de macro

j'ai erreur de compilation

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2011

• #29

Re : Interdire valeur négative sous forme de macro

Re,

Code:

Sheets("Données").Cells(7, col).Resize(8).Value = Me.TextBox3.Value

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 29 Juillet 2011

• #30

Re : Interdire valeur négative sous forme de macro

bonjour tous 🙂🙂🙂🙂
en complement du code de l'ami Pierrot🙂🙂
on peut essayer cela dans la mesure au depart les valeurs sont positives

Code:

Option Explicit
Dim x As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Or Target.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Value < 0 Then Target = x
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = Target.Value
End Sub

oups annuler j'avais pas vu la 2 pages 🙁🙁

 

Dernière édition: 29 Juillet 2011

Vote positif 0 Vote négatif