Bonjour à tous,
Dans une feuille Excel à la colonne D qui contient 50 000 cellules de valeurs ou de chaines alphanumériques, je souhaite identifier les cellules contenant une valeur et la déplacer d'une cellule à droite.
Voici le code que j'ai "bricolé":
Sub Macro4()
'
' Macro4 Macro
'
' Touche de raccourci du clavier: Ctrl+a
'
Dim i As Integer
Dim rngRange As Range
Set rngRange = Sheets("Test Sheet").Range("D1")
For i = 1 To 50000
If (rangeRange.Offset(i, 0).Value) <> "" Then
If IsNumeric(rangeRange.Offset(i, 0).Value) = True Then '<--Voici la syntaxe
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Next i
End Sub
Il me renvoie l'erreur suivante: Next sans For
Merci de votre aide!
Dans une feuille Excel à la colonne D qui contient 50 000 cellules de valeurs ou de chaines alphanumériques, je souhaite identifier les cellules contenant une valeur et la déplacer d'une cellule à droite.
Voici le code que j'ai "bricolé":
Sub Macro4()
'
' Macro4 Macro
'
' Touche de raccourci du clavier: Ctrl+a
'
Dim i As Integer
Dim rngRange As Range
Set rngRange = Sheets("Test Sheet").Range("D1")
For i = 1 To 50000
If (rangeRange.Offset(i, 0).Value) <> "" Then
If IsNumeric(rangeRange.Offset(i, 0).Value) = True Then '<--Voici la syntaxe
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Next i
End Sub
Il me renvoie l'erreur suivante: Next sans For
Merci de votre aide!