Boucle Ligne par ligne base de données

Question

Bonjour, 

Dans le cadre de mon travail, je dois boucler ma base de donnée composée de plusieurs lignes et colonnes. 
Je dois affecter une spécialité à chaque ligne et l’insérer à la dernier colonne. Cette boucle doit passer sur toutes les lignes de ma base de données. 
Si quelqu'un peut m'aider dans ce sujet ça serait vraiment sympa :). Merci par avance de vos réponse. 

Je reste dispo pour plus d'explication. Je met un exemple en pièce jointe et j’espère que sera claire.

Bien cordialement,

jordane45 · Answer

Bonjour 
T'aider oui...le faire à ta place  non.
Qu'as tu commencé à coder ?
Sur quel logiciel ? Access ? Excel ?
Sur quoi bloques tu exactement ?

alberkrimo · Answer

Bonsoir, merci pour ta réponse.

Effectivement j'ai pas spécifié. j'ai pas mal avancé. la je rencontre un problème que j'arrive pas à comprendre. 

Voici le code que j'ai fait et qui affiche la 4 eme ligne dans mon userform à l'ouverture.

Private Sub UserForm_Initialize()

Dim ligne As Integer
Dim colonne As Integer

Dim der_ligne As Integer
Dim der_colonne As Integer

der_ligne = Cells.SpecialCells(xlCellTypeLastCell).Row
der_colonne = Cells.SpecialCells(xlCellTypeLastCell).Column

Sheets("Extraction DT").Select

For ligne = 3 To der_ligne
  
    For colonne = 2 To der_colonne
    
   If Cells(4, 30) = "" Then
    Label7 = Cells(ligne, 3)
    Label8 = Cells(ligne, 4)
    Label9 = Cells(ligne, 11)
    Label10 = Cells(ligne, 17)
   End If

Next colonne

Next ligne

End Sub




Ensuite, a l'ai d une commandbutton je passe à la ligne suivante sachant que je copie la ligne traitée. en gros je traite a chaque fois la 4 eme ligne. le code est le suivant :

Dim der_ligne As Integer
Dim der_colonne As Integer

der_ligne = Cells.SpecialCells(xlCellTypeLastCell).Row
der_colonne = Cells.SpecialCells(xlCellTypeLastCell).Column

If CheckBox1.Value = True Then Cells(ligne + 4, 30) = " Nico"

If CheckBox2.Value = True Then Cells(ligne + 4, 30) = " Kevin"
    
Rows(ligne + 4).Cut
Sheets("Tableau de suivi DT").Select
Rows(der_ligne).Select
ActiveSheet.Paste
Sheets("Extraction DT").Select
Rows(ligne + 4).Delete

Unload affdt

affdt.Show

End Sub

EDIT : AJOUT DES BALISES DE CODE (jordane)


Mon probleme est que l userform affdt n'affiche pas les donnée à nouveau dans les label. 
j'ai remarqué qu'il les affiche que quand je clique sur enregister le fichier et je réouvre l userform.

J'espere que j'étais clair. merci

Boucle Ligne par ligne base de données

2 réponses

Votre réponse

Discussions similaires