Arthur.clb
XLDnaute Nouveau
Bonjour tout le monde,
Je suis en stage et je suis confronté à un petit problème car je dois à l'aide d'une macro copier une cellule spécifique de la feuille "tablo" vers une la première case vide de la colonne n°6 (entre la ligne 6 et 20) de la feuille "B38". C'est surement tout bête et très simple mais je rencontre quelques difficultés; voici mon code:
Merci d'avance
Je suis en stage et je suis confronté à un petit problème car je dois à l'aide d'une macro copier une cellule spécifique de la feuille "tablo" vers une la première case vide de la colonne n°6 (entre la ligne 6 et 20) de la feuille "B38". C'est surement tout bête et très simple mais je rencontre quelques difficultés; voici mon code:
VB:
Sub MACROB38()
Dim i As Integer
Application.ScreenUpdating = False ' L'écran reste figé
With Sheets("B38")
For i = 9 To 20
Sheets("tablo").Select
If .Cells(i, 6) = "" Then
.Cells(i, 6) = Cells(3, 4)
End If
Next i
End With
End Sub
Merci d'avance