A voir également:
- VBA - Condition et Do Loop
- Excel cellule couleur si condition texte - Guide
- My people do - Télécharger - Organisation
- Incompatibilité de type vba ✓ - Forum Programmation
- Do not turn off target traduction - Forum Samsung
- Samsung galaxy tab S Bloquer Downloading do not turn off target - Forum Téléphones & tablettes Android
4 réponses
Il y avait peut-être une solution plus "Excel" , mais celle ci devrait fonctionner:
i = 4
k = 3
While Worksheets("TdB").Cells(i, 1).Value <> ""
If Worksheets("TdB").Cells(i, 9).Value = "X" Then
For j = 1 To 3
Worksheets("PrésenceAS").Cells(k, j).Value = Worksheets("TdB").Cells(i, j).Value
k = k + 1
Next j
End If
i = i + 1
wend
Bon courage!
i = 4
k = 3
While Worksheets("TdB").Cells(i, 1).Value <> ""
If Worksheets("TdB").Cells(i, 9).Value = "X" Then
For j = 1 To 3
Worksheets("PrésenceAS").Cells(k, j).Value = Worksheets("TdB").Cells(i, j).Value
k = k + 1
Next j
End If
i = i + 1
wend
Bon courage!
CA merchera mieux comme ça:
As-tu une autre solution ?
i = 4
k = 3
While Worksheets("feuil2").Cells(i, 1).Value <> ""
If Worksheets("feuil2").Cells(i, 9).Value = "X" Then
For j = 1 To 3
Worksheets("feuil3").Cells(k, 1).Value = Worksheets("feuil2").Cells(j + i - 1, 1).Value
k = k + 1
Next j
End If
i = i + 3
Wend
As-tu une autre solution ?
J'ai rajouté deux petites lignes, car avec le programme, seule la colonne A était copiée,
Finalement ca donne ca :
Sub PAS()
i = 4
k = 3
While Worksheets("TdB").Cells(i, 1).Value <> ""
If Worksheets("TdB").Cells(i, 9).Value = "x" Then
For j = 1 To 3
Worksheets("PrésenceAS").Cells(k, 1).Value = Worksheets("TdB").Cells(j + i - 1, 1).Value
Worksheets("PrésenceAS").Cells(k, 2).Value = Worksheets("TdB").Cells(j + i - 1, 2).Value
Worksheets("PrésenceAS").Cells(k, 3).Value = Worksheets("TdB").Cells(j + i - 1, 3).Value
k = k + 1
Next j
End If
i = i + 3
Wend
End Sub
En fait le programme ne prend pas en compte la condition, il copie tout le monde, meme ceux pour lesquels la colonne I n'est pas cochée.
Finalement ca donne ca :
Sub PAS()
i = 4
k = 3
While Worksheets("TdB").Cells(i, 1).Value <> ""
If Worksheets("TdB").Cells(i, 9).Value = "x" Then
For j = 1 To 3
Worksheets("PrésenceAS").Cells(k, 1).Value = Worksheets("TdB").Cells(j + i - 1, 1).Value
Worksheets("PrésenceAS").Cells(k, 2).Value = Worksheets("TdB").Cells(j + i - 1, 2).Value
Worksheets("PrésenceAS").Cells(k, 3).Value = Worksheets("TdB").Cells(j + i - 1, 3).Value
k = k + 1
Next j
End If
i = i + 3
Wend
End Sub
En fait le programme ne prend pas en compte la condition, il copie tout le monde, meme ceux pour lesquels la colonne I n'est pas cochée.
Initialement :
C'est ce que faisait la première proposition, mais réponse:
correction dans ce sens, mais réponse:
Ben oui c'est le besoin exprimé
La prochaine fois précise bien le besoin au départ.
Bonne poursuite
je souhaiterais pouvoir copier A4:C4 sur A3:C3
C'est ce que faisait la première proposition, mais réponse:
le nom est copié, puis la ligne en dessous le prénom, puis la ligne en dessous la classe, au lieu d'être copié sur la meme ligne.
correction dans ce sens, mais réponse:
seule la colonne A était copiée
Ben oui c'est le besoin exprimé
La prochaine fois précise bien le besoin au départ.
Bonne poursuite
Dans l'onglet "PrésenceAS", le nom est copié, puis la ligne en dessous le prénom, puis la ligne en dessous la classe, au lieu d'être copié sur la meme ligne.