Bonjour,
C'est un problème certainement simple pour les experts d'Excel mais pas facile pour moi
Voici une partie de mon code. Mon but est que si je rencontre une cellule au format pourcentage, je la sélectionne entièrement, je la copie et je la colle juste après celle-ci mais c'est la ou sa coince pour moi
Je vous remercie
C'est un problème certainement simple pour les experts d'Excel mais pas facile pour moi
Code:
Sub Traitement()
Dim td As Sheets
Dim taille As Range
Dim myDate As Date
Dim derligne As Long
With Sheets("donnee")
Set taille = .Range("A2:DX761")
For Each cell In taille
If InStr(1, cell.Text, "%") > 0 Then
cell.EntireColumn.Rows("2:761").Select
Selection.Copy
Selection.Paste after column.select
End If
Next
End With
End Sub
Je vous remercie