Utiliser un calendrier type "calendar" en 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 à toutes et à tous, j'espère que vous allez bien.
Je voulais savoir si vous aviez une solution à mon problème, je vous explique :
J'ai récemment fait la mise à jour de mon ordinateur portable
Depuis cette mise à jour, je ne peux plus connecter mon ordinateur à mon PC via un câble HDMI. Le message suivant apparaît : Votre PC ne peut pas utiliser un autre écran. Essayez de réinstaller le pilote ou d'utiliser une autre carte vidéo.
J'ai déjà essayé de mettre à jour les pilotes/drivers mais d'après Windows Update et le gestionnaire de périphérique, tout est à jour. J'ai même essayé de mettre à jour manuellement les pilotes mais rien y fait. Quand j'essaie de...

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, Je viens de créer une nouvelle adresse gmail qui me demandait mon numéro de téléphone. Jusqu'ici pas de problème. Ensuite mon compte a été bloqué et on m'a demandé de valider mon identité. Pour cela j'ai dû rentrer mon numéro de téléphone et là apparaît le message "Impossible d'utiliser ce numéro de téléphone pour la validation". Quelqu'un saurait-il m'aider, je suis complètement bloquée ? Merci