Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Re : [VBA] équivalent de "Me" pour une CheckBox
Bonjour,
Private Sub CheckBox1_Click()
CBClick
End Sub
Private Sub CheckBox2_Click()
CBClick
End Sub
Private Sub CheckBox3_Click()
CBClick
End Sub
' A mettre dans le code de votre USF
Sub CBClick()...
Re : code VBA - Zoom sur liste déroulante
Bonjour,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 5 And Target.Row >= 2 And Target.Row <= 1000 Then
ActiveWindow.Zoom = 120
Else
ActiveWindow.Zoom = 85
End If
End Sub
Re : Problème de tableau et graphique évolutif
Bonjour
1- Faire Ctrl F3 pour afficher la fenêtre " Gestionnaire de noms"
2- Double click sur "E3_Graph_Etiquettes"
3- Copie colle la formule supra-citée dans "Fait référence à"
4- Faire OK puis Fermer
Sinon regarde ici pour plus d'info...
Re : Problème de tableau et graphique évolutif
Bonjour
il faut modifier le Nom E3_Graph_Etiquettes et remplacer 10 par 12
=SI(E3_NbMaxVal<1;Tableau!$A$1;DECALER(Tableau!$A$2;SI(E3_NbMaxVal<12;0;E3_NbMaxVal-12);;SI(E3_NbMaxVal<12;E3_NbMaxVal;12)))
Re : position listbox
Bonsoir,
Voici un exemple
Public Pos As Integer
Private Sub essai_Click()
Dim celluletrouvee As Date
Dim jour As Date
jour = essai.Value
With Range("a3:a80")
End With
If jour = 0 Then Exit Sub 'Null
Set celltrouvee = Range("a:a").Find(what:=jour...
Re : Forme automatique légende
Bonsoir,
J'ai pas trouvé dans Excel mais dans Word 2007 il faut faire:
- Click droit sur la légende
- Format de la forme automatique
- onglet zone de texte
- Bouton Options de légende
Re : VBA - Problème recordset - objet fermé
Bonsoir,
il ne faudrait pas rajouter la fonction seek pour mettre le pointeur en début de liste,
du style rsRecherche.seek (pas testé)
Re : Macro Excel 2013 qui ne fonctionne pas sous Excel 2010
Bonsoir,
c'est bien un problème de référence apparemment en fonction de la version d'Excel
je suis sous 2007 mais essaye ceci:
Sub AjoutReferenceOutlook()
Dim xRef As String
xRef = "C:\Program Files\Microsoft Office\Office"...
Re : Interdire supp onglets suivant cellule...
Bonjour Roby
I faudrait quand même nous envoyé un bout de ton fichier épurer, bien sûr, des données confidentielles,
car même avec la protection du VBA je n'arrive pas à reproduire l'erreur.
sinon désactive les commandes que tu as rajouter une...
Re : Excel calculs intérêts composés différents de banque
Bonsoir
Je pense que ça viens du fait qu'ils ajoutent une part d'assurance en fonction de la durée. (calcul propre à eux)
A confirmer
Re : Interdire supp onglets suivant cellule...
Bonsoir
Un petit exemple pour empêcher la suppression d'une ou plusieurs feuilles
Dans la sub SupFeuil() il suffit de tester la case au lieu de la feuille
Re : besoin d'aide , divisé un nombre par nombre de jour en VBA
Bonsoir,
en B6 de l'onglet Marge remplace 8 par JOUR(AUJOURDHUI())
=SD!E2/JOUR(AUJOURDHUI())
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.