Moyenne de 4 textbox

Bonjour

J'ai essayer ce code, ça ne marche toujours pas, celui ci m'arrondi au nombre entier.

J'ai peut être mal placé mon code ?

Je devrais mettre ce code ou ?

Je l'ai mis dans ma textBox5.

Bonjour,

Je ne connais pas du tout ton fichier ... que tu n'as jamais joint ...

Donc ma boule de cristal te répondrait ...le code est à placer dans le module de ...calcul ...

Bonjour,

Ci-joint ton dernier fichier ... entièrement nettoyé ...

Bonne Continuation ...

Un grand merci pour tous!

Le nettoyage et le déblocage.

Je voulais juste savoir une petite chose dans le code suivant:

Private Sub CommandButton1_Click()

' Bouton Valider

Dim ctrl As Control

Dim Colonne As Integer

Dim derligne As Integer

derligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1

For Each ctrl In Note3.Controls

Colonne = val(ctrl.Tag)

If Colonne > 0 Then Sheets("Feuil1").Cells(derligne, Colonne) = ctrl

Next ctrl

Il me permet de ranger les valeur des textbox et combobox dans différents cellules, mais est ce que c 'est possible que c 'est valeur se mette dans la feuille active et pas toujours dans la feuille 1

Je pense qu'il faudrait remplacer feuille 1 par quelque chose mais quoi ?? C' Est ma grande question.

Ou sinon savoir si c 'est possible de placer les valeurs dans les deux feuilles c'est a dire la feuille active et la feuille 1 ? ( ça me plairait plus )

Merci pour votre aide

Re,

Merci pour tes remerciements ...

A la place de Sheets("Feuil1")... mettre ...ActiveSheet

De rien tu m'as énormément aider.

J'ai effectuer le changement, sa marche du tonnerre. Merci beaucoup.

Comment on dit ET sous VBA ? Je vais essayer à me débrouiller.

Re,

Au sujet de ta dernière question ...

Il faut faire la différence entre AND si tu construis des instructions .... et le ampersand : & si tu dois concaténer des strings ...

Bonne Continuation ...

Ré

Avec grand franchise, je voulais essayer de mettre

ActiveSheet and Sheet(«feuil1») dans mon code ci dessus pour pouvoir que mes

valeur aille dmas ma fenêtre active et ma feuille 1.

Moi je devrai prendre plutôt le quel ?

Merci pour votre aide

Re,

Ni l'un ni l'autre ...!!!

Le cas que tu décris ne rentre pas dans la configuration And ...

Si tes deux feuilles ont exactement la même structure :

If Colonne > 0 Then 
    ActiveSheet.Cells(derligne, Colonne) = ctrl
    Sheets("Feuil1").Cells(derligne, Colonne) = ctrl
End If

Re

Merci beaucoup.

C est ca je voulais un peu prêt.

Je vais essayer me débrouiller, mais si j arrive pas, je reviens vers toi .

Merci énormément.

Bonsoir,

Une petite remarque concernant cette ligne

derligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1

Derligne correspond donc à la première ligne vide.

Si il y a 65536 lignes saisies ça va pas marcher.

Il est préférable à mon avis d'utiliser ce code qui passe sur toute les versions d'excel.

derligne = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row + 1

Re,

Voilà une belle définition ... d'optimiste ... pour un fichier totalement vide ...

Sait on jamais si le fichier sert plusieurs années ^^, j'ai préféré voir le verre à moitié plein

Bonjour,

Si on dit : pas de nouvelles ... bonnes nouvelles ...

C'est que le problème est résolu ...

Donc ...

Bonjour a tous,

Désolé de mon absence, je suis actuellement entrain de préparer mes examens, c'est pourquoi je n'est pas posté des nouvelles et je n'est non plus avancé dans le projet.

Je vais essayée vos derniers code et je vous tiens au courants .

Je vous remercie de votre aide

Bonjour,

Bon Courage pour tes examens ...

Re bonjour,

Après essayé ce code :

If Colonne > 0 Then

ActiveSheet.Cells(derligne, Colonne) = ctrl

Sheets("Feuil1").Cells(derligne, Colonne) = ctrl

End If

Quand j'ouvre une nouvelle feuille et rentre une note, il m'enregistre bien sur la feuille active, mais sur la feuil1 il m'efface mes ancienne note et la remplace par cette nouvelle note.

Merci de votre aide .

Re,

Ci-joint ton fichier à tester ...