VBA erreur 438
tetro14
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
tetro14 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
tetro14 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
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
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 4201 france tv ✓ - Forum Réseaux sociaux
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
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?
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
Statut
Membre
Dernière intervention
lorsque je fait ceci les 2 reviennent se coller ensemble, est-ce le résultat désiré ?
Bonjour a vous deux
Pour utiliser .selection, il faut qu'il y ait eu selection avant !!!!
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
