VBA erreur 438

Fermé

tetro14 Messages postés 8 Date d'inscription lundi 8 août 2016 Statut Membre Dernière intervention 15 août 2016 - 8 août 2016 à 14:54
tetro14 Messages postés 8 Date d'inscription lundi 8 août 2016 Statut Membre Dernière intervention 15 août 2016 - 8 août 2016 à 16:24

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

A voir également:

VBA erreur 438
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur 1001 outlook - Accueil - Bureautique
Erreur vidéo freebox ✓ - Forum TV & Vidéo
Erreur 38 free ✓ - Forum Mobile

3 réponses

Réponse 1 / 3

Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
8 août 2016 à 15:04

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?

tetro14 Messages postés 8 Date d'inscription lundi 8 août 2016 Statut Membre Dernière intervention 15 août 2016
8 août 2016 à 15:22

lorsque je fait ceci les 2 reviennent se coller ensemble, est-ce le résultat désiré ?

Réponse 2 / 3

f894009 Messages postés 17217 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 décembre 2024 1 711
8 août 2016 à 15:20

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

tetro14 Messages postés 8 Date d'inscription lundi 8 août 2016 Statut Membre Dernière intervention 15 août 2016
8 août 2016 à 16:24

cela fonctionne parfaitement merci

Réponse 3 / 3

tetro14 Messages postés 8 Date d'inscription lundi 8 août 2016 Statut Membre Dernière intervention 15 août 2016
8 août 2016 à 15:21

j'ai modifié la ligne :

Columns.Selection.Insert Shift:=xlToRight

pour :

Columns.Select.Insert Shift:=xlToRight

et maintenant j'obtient l'erreur 1004

f894009 Messages postés 17217 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 décembre 2024 1 711
8 août 2016 à 15:22

Bonjour,

lisez ce post f894009 8 août 2016 à 15:20 juste au dessus de votre dernier post

Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
8 août 2016 à 15:27

Erreur 1004 c'est une erreur d'objet, tu ne lui donne pas ce qu'il attend.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA erreur 1004

Erreur d'exécution 13 Incompatibilité de type

Code erreur 3000

MACRO : Problème " Erreur d'exécution '1004' "