Macro Excel ne marche pas
Douguidog
Messages postés
11
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
J'ai quelque soucis avec ma macro qui ne se lance pas alors que la condition Not IsEmpty est vraie.
Sub MacroCopieDesSalaires()
'
' MacroCopieDesSalaires Macro
'
Dim i As Integer
i = 3
'
While Not (IsEmpty(Sheets("Salariés").Cells(1, i)))
If IsNumeric(Sheets("Salariés").Cells(1, i)) Then
Sheets("Salariés").Select
Cells(1, i).Select
Selection.Copy
Sheets("Taux").Select
Range("I2").Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
Range("F5:F47").Select
Selection.Copy
Sheets("1").Select
Cells(i + 1, 6).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
i = i + 1
End If
Wend
End Sub
J'ai quelque soucis avec ma macro qui ne se lance pas alors que la condition Not IsEmpty est vraie.
Sub MacroCopieDesSalaires()
'
' MacroCopieDesSalaires Macro
'
Dim i As Integer
i = 3
'
While Not (IsEmpty(Sheets("Salariés").Cells(1, i)))
If IsNumeric(Sheets("Salariés").Cells(1, i)) Then
Sheets("Salariés").Select
Cells(1, i).Select
Selection.Copy
Sheets("Taux").Select
Range("I2").Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
Range("F5:F47").Select
Selection.Copy
Sheets("1").Select
Cells(i + 1, 6).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
i = i + 1
End If
Wend
End Sub
2 réponses
-
Bonjour
While Not IsEmpty(Sheets("Salariés").Cells(1, i))
Cdlt -
Bonjour
Il me semble que ton code pourrait être amélioré et (très) simplifié, mais pour cela, il faudrait avoir accès à la structure de ton fichier. Peux tu l'envoyer avec quelques lignes de données (anonymisées), au format excel 2003, sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
Cdlmnt
