savoir comment faire

[benji1919]

bonjour je voudrais qu'on procede par etape,

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.

 

[benji1919]

bah oui mais tu n'explique pas ce que c'est le Col donc j'en c'est rien.

 

[Staple1600]

Re

C'est pourtant évident, non ?
Il suffit d'être attentif !
Message 57

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

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.

Message 58

autre simplification possible (toujours pour ce qui concerne les CheckBox)

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

On regarde qu'on retrouve 8,9,10 et 11 dans les deux codes
Numéros qui correspondent à des numéros de colonnes
D'où le nom de la variable: COL

 

[benji1919]

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.

 

[Staple1600]

Relis mon message précédent

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 !

 

[benji1919]

je m'en fou d'apprendre le vba tout ce que je veux c'est que tu me disent cette p...... de solution.

 

[Staple1600]

Re

Et ta note, tu t'en fous aussi alors?

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)

 

[benji1919]

oh merci tu es un dieux.

bah tempis pour ma note

 

[Staple1600]

Re

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

Je cède ma place à mes camarades pour ce soir.

J'ai trop les yeux qui piquent

 

[benji1919]

par contre, j'ai un probleme c'est que le lien de la photo ne ce met pas dans la colonne "photo" mais commentaire.

 

[benji1919]

oh plein toi, a t'es 15 ans je suis sure tu avais aussi un orthographe pareille.

 

[benji1919]

enfin bref tu c m'aider pour la derniere chose que je demande ?

 

[benji1919]

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

 

[Staple1600]

Re

@benji1919
Tu n'as pas à me dire ce que je dois ou ne dois pas faire, jeune padawan

 

[benji1919]

Chuuut! Les afk ne parles pas ! Vieux padawan

 

[Staple1600]

Re

Pourtant le vieux padawan avait la solution (qui était évidente...)

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