Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Creation d'un code Vba pour une moyenne

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Parmegui

XLDnaute Nouveau
Bonjour à tous !

Je suis étudiant et nous avons reçu un travail à effectuer à 3 . Nous sommes à la partie Vba et nous avons des difficultés à réaliser un code.
Il nous ai demandé de réaliser une analyse statistique programmée en Vba. Jusqu'a présent, nous avons calculé la moyenne de capacité de chargement de 2 types de bateaux (Roro et porte-conteneur) ,comme vous pouvez le constaté sur la photo, en C26 et C27. Nous désirons ,lors de l'execution du code VBA, voir apparaitre en couleur les bateaux de types Roro ,dans un premier temps, qui sont en dessous de la moyenne et dans une autre couleur ceux au-dessus de la moyenne de Roro. Il en va de même pour ceux du porte-conteneur avec la moyenne de capacité de déchargment des portes-conteneurs.
Merci à l'avance de votre aide.

 
Re : Creation d'un code Vba pour une moyenne

Bonjour Jean-Marcel je suis étudiant et j'ai aussi un problème,j'aimerai pouvoir rajouter un membre d'équipage à ma feuille à partir d'un bouton présent sur ma feuille,et à partir de là faire la macro permettant d'executer ce bouton. Je t'envoie mon travail pour une meilleure compréhension. Si vous pouviez m'aider,je vous en serai très reconnaissant.
 
Re : Creation d'un code Vba pour une moyenne

Mon code:
Sub btnAjouter_Mbr()

Dim lastRow As Integer

Set Worksheet = Sheets("Feuil1")

lastRow = wrkSheet.Cells(wrkSheet.Rows.Count, "A").End(xlUp).Row

wrkSheet.Cells(lastRow, 1).Value = txtNom.Value
wrkSheet.Cells(lastRow, 2).Value = txtPréom.Value
wrkSheet.Cells(lastRow, 3).Value = txtAdresse.Value
wrkSheet.Cells(lastRow, 4).Value = txtGsm.Value
wrkSheet.Cells(lastRow, 5).Value = txtPositionHiérarchique.Value

If cbxMarié.Value = "VRAI" Then
wrkSheet.Cells(lastRow, 6).Value = True
Else
wrrSheet.Cells(lastRow, 6).Value = False

wkrSheet.Cells(lastRow, 7).Value = txtNumeroduMembredEquipage.Value
wkrSheet.Cells(lastRow, 8).Value = txtN°Equipage.Value

End If

MsgBox ("Membres d'Equipage" & txtNom.Value & " a été ajouté")



txtNom.Value = ""
txtPréom.Value = ""
txtAdresse.Value = ""
txtGsm.Value = ""
txtPositionHiérarchique.Value = ""
cbxMarié.Value = "VRAI"
txtNumeroduMembredEquipage.Value = ""
txtN°Equipage.Value = ""


End Sub
 
Re : Creation d'un code Vba pour une moyenne

Voilà j'ai une nouvelle discussion :"Création d'un bouton me permettant de rajouter une ligne à ma feuille via une macro."
Et oui je sais qu'il n'y a pas de macro dans le fichier que je vous ai envoyé mais c'est parce que je n'arrive pas à l'enregistré et c'est pour cela que je vous l'ai envoyé un msg,désolé :/
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…