bonjour,
voici mon problème ,
j'ai ce code
Private Sub CommandButton1_Click()
Dim ws5 As Worksheet, ws6 As Worksheet 'déclaration des variables feuilles
Dim x As Long 'déclaration de la variable colonne
Application.ScreenUpdating = False 'évite le rafraichissement de l'écran à chaque tour de boucle
Set ws5 = Sheets("donnée") 'définit la feuille ws5
Set ws6 = Sheets("resultat") 'définit la feuille ws6
For x = 2 To 13 'boucle de la colonne 2 à la colonne 13 (feuille ws6)
If ws6.Cells(7, x) Like ws5.Range("H2") Then 'si la date de la feuille ws6 correspond à la date de la feuille ws5
ws6.Cells(7 + 1, x) = ws5.Range("B" & 11) 'le type de ws6 = type de ws5 (+1 car on se décale vers la droite)
ws6.Cells(7 + 2, x) = ws5.Range("B" & 12)
ws6.Cells(7 + 3, x) = ws5.Range("B" & 13)
ws6.Cells(7 + 4, x) = ws5.Range("B" & 14)
ws6.Cells(7 + 5, x) = ws5.Range("B" & 15)
ws6.Cells(7 + 6, x) = ws5.Range("B" & 16)
End If 'fin de la condition
Next x 'fin de la boucle sur les colonnes de ws6
'fin de la boucle sur les lignes de ws5
Application.ScreenUpdating = True 'on réactive le rafraichissement de l'écran
End Sub
j aimerais simplifier cette ligne
ws6.Cells(7 + 1, x) = ws5.Range("B" & 11) 'le type de ws6 = type de ws5 (+1 car on se décale vers la droite)
ws6.Cells(7 + 2, x) = ws5.Range("B" & 12)
ws6.Cells(7 + 3, x) = ws5.Range("B" & 13)
ws6.Cells(7 + 4, x) = ws5.Range("B" & 14)
ws6.Cells(7 + 5, x) = ws5.Range("B" & 15)
ws6.Cells(7 + 6, x) = ws5.Range("B" & 16)
mais je trouve pas la bonne maniere
car ce sont des cellules sur la meme colonne
merci d'avance