Discussion :

[mimil49]

Bonjour

fichier en PJ

LE fonctionnement : tu choisi un batiment, puis un mois puis tu rentre une donnée dans la textbox!

La donnée s'incremente dans l'onglet au mois et batiment choisi !!

Aisni de suite pour le reste !!

Moi ce que je veux c que si je rentre une saisie en octobre et ensuite j'oublie de changer le mois (c-a-d je reste en oct au lieu de nov) et donc je refait une saisie en octobre ça me marque un message comme quoi il y a déja une valeur !!

MERCI

[JoeJoeH]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Range("la cellule contenant les info ici").Value <> "" Then
     MsgBox "Il y a déjà des informations pour ce mois!"
Else
     'Le code de copie des informations ici
End If

A adapter dans ton code.

EDIT : corona n'a pas tort.

[Philippe Tulliez]

Bonjour,
Et il faut cela pour quelle heure ?

[mimil49]

Au plus vite

JoeJoeH merci , mais ta formule ne me parais pas adequate avec ce que je veux !

Ou plutôt je ne vois pas comment l'utilisé !!

Merci

[JoeJoeH]

Eh bien tu remplaces "la cellule qui contient les données" par la ou les cellules qui contiennent les informations correspondantes au mois choisi dans la combobox, et dans le else tu mets ton code de copie normal.

[mimil49]

Bonjour a vous

J'essaye mais ca ne marche pas !!
Est ce comme cela pour rentrer la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Cells(li, col).Value <> "" Then
     MsgBox "Il y a déjà des informations pour ce mois!"
Else
Sheets("Données").Cells(li, col).Value = (Me.TextBox1.Value) - ai
End If

Par rapport a mon fichier