Remplissage de zones différentes dans la feuille

Le 08/12/2011 à 21:24

Bonsoir,

Suis débutant en vba et viens encore une fois demander de l’aide pour mon petit formulaire que je pense très facile pour beaucoup d’entre vous, mais (comme il y a toujours un mais) pour moi je ne vois pas comment faire.

Explications dans le fichier en annexe.

Merci

14eta-de-presence.xlsm (24.43 Ko)

Le 08/12/2011 à 22:06

Bonsoir

Un essai

12toze666-presence-v001.xlsm (34.97 Ko)

Le 08/12/2011 à 22:15

Merci Banzai64, nikel

Le 08/12/2011 à 22:22

voilà à peu pret la meme soluce mais avec un code beaucoup moins propre !!!

J'adore ce forum on découvre de superbe code.

9eta-de-presence.xlsm (33.54 Ko)

Le 09/12/2011 à 00:06

re-bonsoir,

dans le code de Banzai64, dans ce code:

Private Sub CommandButton1_Click()

' Valider

Dim I As Integer

Dim Lg As Long

Dim Cl As Integer

Dim Cel As Range

For I = 1 To 3

If Me.Controls("Combobox" & I).ListIndex = -1 Then

MsgBox "Veuillez remplir correctement" & vbCr & _

"Le mois" & vbCr & "Le jour" & vbCr & "Le motif"

Exit Sub

End If

Next I

With Sheets("feuil1")

Set Cel = .Range("A5:A29").Find(what:=Me.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)

If Not Cel Is Nothing Then

.Cells(Cel.Row + 1, 2 + Me.ComboBox2.ListIndex) = Me.ComboBox3.Column(1)

Else

MsgBox "Mois inconnu"

End If

End With

Unload Me

End Sub

SUR LA LIGNE " With Sheets("feuil1")", je ne peut pas avoir la "activesheet" au lieu de "feuil1" ??

Le 09/12/2011 à 01:18

Bonjour

Bien sur tu peux modifier la ligne et même simplifier le code

Private Sub CommandButton1_Click()
' Valider
Dim I As Integer
Dim Cel As Range

  For I = 1 To 3
    If Me.Controls("Combobox" & I).ListIndex = -1 Then
      MsgBox "Veuillez remplir correctement" & vbCr & _
             "Le mois" & vbCr & "Le jour" & vbCr & "Le motif"
      Exit Sub
    End If
  Next I
  Set Cel = Range("A3:A25").Find(what:=Me.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not Cel Is Nothing Then
    Cells(Cel.Row + 1, 2 + Me.ComboBox2.ListIndex) = Me.ComboBox3.Column(1)
  Else
    MsgBox "Mois inconnu"
  End If
  Unload Me
End Sub

Le 09/12/2011 à 12:19

Bonjour Bansai64 et encore une fois merci pour ton aide, mais en faite ce que j'aurai besoin c'est que sur la ligne

" With Sheets("feuil1")" le Sheets soit la sélection d'une combobox4, au lieu d'avoir "feuil1" que ce soit la valeur cliquée sur cette combobox qui soit la feuil active.

est-ce possible

??

Le 09/12/2011 à 13:15

Bonjour

Donc tu as un nouvel Userform

Il serait intéressant d'avoir un fichier représentatif

A te lire

Sous toute réserve une idée

20toze666-presence-v002.xlsm (31.67 Ko)

Le 09/12/2011 à 13:37

Banzai64, encore une fois merci pour ton aide que en plus rapide comme toujours!, merci