Inscription
17 janvier 2007
Interventions
33
Signature
Je suis inutile donc indispensable.

Problème enceintes Logitech

Bonjour, Après installation de mes enceintes Logitech X-530 5.1 je n'ai que le son des 2 hauts-parleurs de devant. Je dispose des 3 emplacements prévus pour la carte son, c'est-à-dire celui de couleur verte, le orange et le noir. Or, quand je connecte mes 3 fils sur ces emplacements je n'ai aucun son. Je n'arrive à avoir le son qu'ave... Lire la suite

[VBA] Effacer contenu d'une cellule

Bonjour, J'ai en case C2 une liste où je peux choisir les congés, mais j'aimerais que si cette case est renseignée, la case D2 reste vide, sans pour autant en effacer la formule. A l'inverse, si la case C2 est remplie, D2 doit être renseignée selon la formule. Ce code efface le contenu de D2 ainsi que la formule qui donc ne peut-êtr... Lire la suite

[VBA] Heure dans une textBox [Résolu]

Bonjour, Voici mon problème : J'aimerais transposer dans une textBox mon nombre d'heures issu de ma cellule C96, mais ça me donne un nombre à virgules avec cette partie de code : UsfNew2.TextBox10.Value = Feuil12.Range("C96").Value Dois-je faire une conversion en chaine de caractères? De quelle manière? Nood Lire la suite

[VBA] Cumul d'heures dans une TextBox

Bonjour, Voici mon problème : J'aimerais transposer dans une textBox mon nombre d'heures issu de ma cellule C35, mais en utilisant les fonctions HOUR, MINUTE et SECOND, je ne peux faire un cumul supérieur à 24:00:00. Y'a t-il une méthode pour y parvenir? Voici mon bout de code : UsfNew2.TextBox2.Value = Hour(Feuil12.Range("C35")... Lire la suite

Up

[VBA] transformer GoTo en Do while [Résolu]

Bonjour, J'ai un code qui fonctionne, mais étant donné que le GoTo n'est pas vraiment apprécié, on m'a conseillé de modifier mon code, j'ai donc pensé à une syntaxe Do While ... Loop Code d'origine : 'inventaire CA sommeCA = 0 compterCA= 0 For Each cell In ActiveSheet.UsedRange If cell.Value = "CA" Then... Lire la suite

[VBA Excel] p'tit problème [Résolu]

Hello, Savez-vous pourquoi cette macro ne fonctionne pas? (Je veux afficher une msgbox si le total des RTT est supérieur à 10) Sub limitation() If Feuil12.Range("C36").Value > 10 Then MsgBox "Bien tenté mais vous ne pouvez pas prendre plus de 10 RTT" End If End Sub Lire la suite

lancement direct d'une VBA

Bonjour j'ai créé un userform sous excel VB et aimerais le lancer directement du disque à partir d'un exe comment faire ? merci de votre aide

[VBA] [Résolu]

Hello, I'd like to know ... Au démarrage de mon .xls, j'ai un Userform demandant de sélectionner un mois de l'année. Après clic sur Ok, je devrais atterir sur la feuille du mois correspondante et l'Userform (usfNew) doit disparaitre, mais lorsque je clique sur Ok, la feuille se charge bien mais je retourne automatiquement au code et... Lire la suite

Noircir une colonne excel d'un double clic [Résolu]

Comment procéder? Je ne trouve pas la macro VBA correspondante, j'ai essayé : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next If ActiveCell.FillUp = vbWhite Then ActiveCell.FillUp = vbBlack ElseIf ActiveCell.FillUp = vbBlack Then ActiveCell.FillUp = vbWhite End If Cancel... Lire la suite