donc j'ai une grosse base de données excel, j'aimerais que dans ma combobox il ya tout les nom de mes feuilles de mon classeur excel, pour pouvoir choisir dans quelle feuille encoder les données.
je vous mais aussi mon fichier excel. comme sa vous pouvez comprendre mieux.
je vous met aussi mon fichier excel a disposition.
Re @benji1919
Encore une fois, il suffit de prendre le temps de lire et de comprendre les conseils et ou code qu'on te donne
VB:
Private Sub CommandButton1_Click()
LigneEnreg = Me.Enreg + 1
If Me.CheckBox6.Value = True Then .Cells(LigneEnreg, 8) = "OUI"
If Me.CheckBox6.Value = False Then .Cells(LigneEnreg, 8) = "NON"
If Me.CheckBox6.Value = "" Then .Cells(LigneEnreg, 8) = ""
If Me.CheckBox3.Value = True Then .Cells(LigneEnreg, 9) = "OUI"
If Me.CheckBox3.Value = False Then .Cells(LigneEnreg, 9) = "NON"
If Me.CheckBox3.Value = "" Then .Cells(LigneEnreg, 9) = ""
If Me.CheckBox4.Value = True Then .Cells(LigneEnreg, 10) = "OUI"
If Me.CheckBox4.Value = False Then .Cells(LigneEnreg, 10) = "NON"
If Me.CheckBox4.Value = "" Then .Cells(LigneEnreg, 10) = ""
If Me.CheckBox5.Value = True Then .Cells(LigneEnreg, 11) = "OUI"
If Me.CheckBox5.Value = False Then .Cells(LigneEnreg, 11) = "NON"
If Me.CheckBox5.Value = "" Then .Cells(LigneEnreg, 11) = ""
Donc il te reste juste à changer l'action de l'exemple par celle que tu veux faire.
(je te laisse faire les essais et ajustements nécessaires)
PS: Nous sommes là pour aider les demandeurs pas pour faire leur classeur à leur place.
Il n'y aucune urgence ni obligation de résultat sur le forum
(cf la charte du forum)
PS: Essaies de faire un effort sur l'orthographe, stp.
autre simplification possible (toujours pour ce qui concerne les CheckBox)
VB:
Private Sub CommandButton1_Click()
Dim col
With Sheets(ComboBox2.Value)
col = Array(8, 9, 10, 11)
For i = 3 To 6
.Cells(1, col(i - 3)) = IIf(Me.Controls("CheckBox" & i), "OUI", "NON")
Next
End With
End Sub
pfff je laisse tomber tempis mais voila je rendrais un devoir pas correcte a mon prof, maintenant du coup c que pour moi donne le moi que je puisse en finir avec tout ça.
J'ai expliqué ce qu'est COL non?
(en bas de message)
NB: Tu rendras pas ton devoir de toute façon
C'est nous qui avons fait ton devoir!!
Et je ne vois pas comment un prof qui n'enseigne pas le VBA pourrait corriger un classeur ne contenant que cela: du VBA !
Je t'ai donné la solution (et depuis longtemps)
1) Relire le post
Une fois ceci, logiquement tu devrais être en train d'utiliser le dernier fichier joint par Noel
Si oui, sur celui-ci tu as ajouté un CheckBox (comme tu l'indiques dans ton message#74 )
(Ce qui veut dire que l'on doit utiliser une colonne de plus, donc ajouter un nombre de plus dans COL)
Suggestion
Plutôt que de demander à tes parents de te payer des cours particuliers de VBA, tu devrais leur demander de t'inscrire urgemment à un cours de soutien en orthographe.
Cela te sera plus utile pour ta future carrière
vue que staple1600 laisse la place au autre je vais remettre mon message : par contre, j'ai un probleme c'est que le lien de la photo ne ce met pas dans la colonne "photo" mais commentaire.
staple1600 du coups ne met pas ton grain de sel stp
parce que sinon t'es collègue ne se retrouverons pas
Pourtant le vieux padawan avait la solution (qui était évidente...)
VB:
Me.TextBox7 = TblBD(EnregBD, 12)
Me.Chemin = TblBD(EnregBD, 17)'c'est ici le changement
If Dir(Me.Chemin) <> "" Then
Me.Image1.Picture = LoadPicture(Me.Chemin)
Else
Me.Image1.Picture = LoadPicture
End If