Je ne connait pas le type de mon demo tps

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,
qu'est ce que c la faiblesse des pokémon spectreConfiguration: Windows XP
Internet Explorer 7.0

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 et bonne annee,

J'espere etre dans la bonne rubrique.

J'ai plusieurs questions et je suis assez perdu car c'est la premiere fois que je touche a ca.
Dans la maison de mon oncle il y a une Freebox Revolution, un routeur TP- link et 3 repeteurs re650.
Le reseau wifi de la Freebox OK !

Quand je me connecte au repeteur TP link modele RE650 je suis connecté mais je n'ai pas de reseau. Je ne me suis pas trompé de mot de passe. Quand j'ouvre une page web, elle ne s'affiche pas. Je repete que cela fonction avec le wifi en direct de la freebox.
Avec vous des idees/ des pistes a me donner ?

J'ai bien sur rede...