Problème : Type incompatible (erreur 13)

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème : Type incompatible (erreur 13)

benny84

Bonjour, j'essaie de faire un projet VBA et je suis maintenant arrivé à un bugg que je ne suis pas en mesure de corrigé depuis environ 1h30. Voici mon code :

Code :

Dim ABC As Double
'Nommer la cellule "ABC"
ABC = Range("A7" ).Value
'Nommer le fichier
ABCD = ActiveWorkbook.Name
'Nommer le fichier Classeur1
Dim xls As Excel.Workbook
Set xls = GetObject("Classeur1.xls" )
'Rechercher l'endroit à insérer la ligne
Dim i As Integer
Dim k As Integer
k = 1
For i = 1 To k
Windows("Classeur1.xls" ).Activate
If xls.Sheets("feuil1" ).Cells(k + 2, 1).Value < ABC Then
k = k
Else: k = k + 1
End If
Next i
'Insérer une ligne
xls.Sheets("feuil1" ).Cells(k + 3, 1).Select
xls.Sheets("feuil1" ).Cells(k + 3, 1).Insert Shift:=xlUp
'Copier la ligne
ABCD.Worksheets("feuil1" ).Rows(7).Copy _
Destination:=xls.Worksheets("feuil1" ).Rows(k + 3)
End Sub

La ligne en rouge est la ligne de mon erreur :
Type incompatible (erreur 13) : If xls.Sheets("feuil1" ).Cells(k + 2, 1).Value < ABC Then

Merci à l'avance pour votre aide. :hello:

Message édité par benny84 le 02-05-2014 à 14:42:55

Publicité

Marc L

Bonjour, bonjour,

merci de baliser le code avec l'icône dédiée conformément aux règles du forum !

Sinon afin de corriger quoique ce soit vu le bloc de lignes mal conçu (sans compter d'autres erreurs plus bas !),
il serait plutôt judicieux de présenter clairement et exhaustivement le but recherché …

benny84

Oki, je ne sais pas comment baliser le code. Je ne sais pas ce que ça veut dire.
Je consulte régulièrement le forum, mais j'y écris rarement.

Voici mon intention, la cellule A7 comprend un nombre que j'ai appelé ABC. Dès que Cells(k + 2, 1).Value < ABC, je désire copier/coller la ligne en dessous. L'exercice est pour un travail d'étude.

J'ai continué de chercher hier et je crois qu'il manque une ligne, mais le code indique tjrs un erreur.

Code :

k = 1
For i = 1 To k
Windows("Classeur1.xls" ).Activate
If xls.Sheets("feuil1" ).Cells(k + 2, 1).Value < ABC Then
k = k
Else: k = k + 1
End If
Next i

Merci de m'aider

Message édité par benny84 le 02-05-2014 à 14:41:35

Marc L

Si la cellule testée est en format texte, cela provoque l'erreur en la comparant avec la variable ABC déclarée en Double …

Suffit de suivre le code en mode pas à pas via la touche F8 par exemple pour contrôler les valeurs des cellules et variables.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Problème : Type incompatible (erreur 13)

Sujets relatifs
Problème localhost	probleme de suppression d'un champ de type char
[OpenGL] [SDL2] problème de z-buffer [RéSOLU]	Problème PHP/SQL
problème pour inserer des données dans une table à partir d'un Jframe	Problème actualisation page web en arrière-plan
erreur	type de clé primaire
Problème de Joystick avec Pygame
Plus de sujets relatifs à : Problème : Type incompatible (erreur 13)

Page générée en 0.053 secondes