VBA erreur 438
tetro14
Messages postés
8
Statut
Membre
-
tetro14 Messages postés 8 Statut Membre -
tetro14 Messages postés 8 Statut Membre -
Bonjour, j'ai tenté de créer le code ci-dessous afin d'inséré une colonne entre chaque colonne contenant une donnée dans la colonne en question, mon code me semble logique mais une erreur 438 apparaît toujours. voici mon code :
Dim c As Integer
Do Until Cells(4, c + 1) = ""
c = 2
If Cells(4, c) <> "" Then
Columns.Selection.Insert Shift:=xlToRight
c = c + 1
End If
Loop
l'erreur m’apparaît a la ligne en italique, merci de votre aide
Dim c As Integer
Do Until Cells(4, c + 1) = ""
c = 2
If Cells(4, c) <> "" Then
Columns.Selection.Insert Shift:=xlToRight
c = c + 1
End If
Loop
l'erreur m’apparaît a la ligne en italique, merci de votre aide
3 réponses
-
Salut,
Erreur 438 : Propriété ou méthode non géré par cet objet
Essaye ça
As-tu essayé de taper Columns. puis d'appuyer sur la barre espace pour vérifier que Selection fait bien partis de l'objet Columns et ainsi de suite? -
Bonjour a vous deux
Pour utiliser .selection, il faut qu'il y ait eu selection avant !!!!
Sub tets() c = 2 Do Until Cells(4, c) = "" If Cells(4, c) <> "" Then Columns(c).Insert Shift:=xlToRight c = c + 1 End If c = c + 1 Loop End Sub -
j'ai modifié la ligne :
Columns.Selection.Insert Shift:=xlToRight
pour :
Columns.Select.Insert Shift:=xlToRight
et maintenant j'obtient l'erreur 1004
