Incompatibilité de type vba

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Bonjour,

J'ai crée une macro VBA qui permet d'attribuer une valeur (texte) dans la colonne D si il trouve une valeur prédéfini dans la colonne B.

Par exemple si dans cellule B6 j'ai "Voiture" alors dans cellule D6 j'aurai automatiquement "Loué".

Ma macro fonctionne très bien pour chaque valeur saisi, Maintenant si j'ai la même valeur à appliquer sur une plage de 10 ligne, en étendant la 1er valeur sur les 9 autres j'obtiens un débogage avec l'erreur Incompatibilité de Type.

Pouvez vous m'aider SVP.

Voici un morceau de code :

Private Sub Worksheet_Change(ByVal Target As Range)

ligne =...

Bonjour,
voici un code qui génére l'erreur 13 incompatibilité de type
Private Sub CommandButton1_Click()
Dim b As Integer
Dim somme() As Double
ReDim somme(1 To 300)
For b = 1 To 300
somme(b) = somme(b) + ThisWorkbook.Worksheets(Feuil1).Cells(b, 10)
If Cells(b + 1, 2) = ThisWorkbook.Worksheets(Feuil1).Cells(b, 5) Then
somme(b + 1) = somme(b + 1) + ThisWorkbook.Worksheets(Feuil1).Cells(b + 1, 10)
End If
ThisWorkbook.Worksheets(Feuil1).Cells(b + 1, 15) = somme(b)
Next b
End Sub

merci de votre aide.


Configuration: Windows 7 / ...

Bonjour,

Débutant sur Vba je rencontre une erreur d’exécution 13 au niveau de la ligne "If not application.intersect..."
Voilà mon code :
J'ai ajouté la première partie "Option explicit et dim" mais j'ai toujours une erreur dès que j'insère un ligne ou déplace une cellule sur ma feuille.

Option Explicit
Dim wsh As String
Dim sh As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C7")) Is Nothing And Target "" Then
wsh = Target
With Worksheets(wsh)
.Visible = True
.Activate
End With
Fo...

BUDGETS - 31 oct. 2016 à 22:12
BUDGETS - 11 nov. 2016 à 13:06

Bonjour,
J'ai quarante fichiers dont certains sont destinés à servir de liste de choix dans d'autres fichiers;ces derniers servent également de liste de choix pour le fichier Menus.xltm dont les données enregistrées iront dans le fichier Classeur menus.xltm. En ce qui concerne, les listes de choix, tout fonctionne correctement (ce travail avait fait l'objet d'une précédente question : transfert des données d'un fichier dans un autre autant que je me souvienne).
Mintenant, le problème se situe dans le fichier Menus.xltm qui comprend un module (listemenusjournaliers) qui regroupe toutes les données avec leur type (date, string, byte, etc.) et d'un UserForm frmListemenusjournalie...