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.
Je sollicite votre pour avoir de l'aide a faire 3 listbox en fonction
Voir document ci joint
liste1 liste2 (*) liste3 (**)
DTIM DG, DASD DASD-DGO
DG, DSD DSTM
DG, TSD DDS
DTIM-DACO PAD
DSD-DGO
Si on choisi DTIM dans une...
Re : Import selectif de données .txt
La fin simple est d'importer le tout et ensuite faire le menage...
Si tu attaches un exemple texte ainsi un fichier excel tu vas avoir des meilleurs resultats.....
Re : Macro Instruction Excel 4.0 et utilisation de Excel 2010
Have a look hear
http://technet.microsoft.com/en-us/library/cc179167.aspx#BKMK_WhatsRemoved
Re : Ambiguous name detected
Merci Staple1600 pour ta suggestion
Finalement je reuissi a les supprimer en utilisant ceci
Public Sub ToggleActiveXButtons()
Dim oleobj As OLEObject
For Each oleobj In ActiveSheet.OLEObjects
If oleobj.progID = "Forms.CommandButton.1" Then...
Re : Ambiguous name detected
bon de retour au boulot
lorsque que j'utilise
Sub test()
For Each i In ActiveSheet.Shapes
a = ActiveSheet.Shapes(i.Name).Name
MsgBox a
Next i
End Sub
Le message box retourne cmdRunForm4, cmdRunForm5, et cmdRunForm6
Cependant lorsque...
Re : Ambiguous name detected
merci Chris je suis a la maison je regarde le tout au bureau, mais de memoire je crois que non. Plus que je pense, plus je crois que le boutton est cacher et non supprimer.
bonne soiree
Bonjour a tous
Vous allez m`excuser je travail avec excel en anglais, donc la terminologie sera anglaise.
J`ai un petit probleme lorsque je fais un boutton et que je le nomme cmdRunForm et je l`associe a un evenement (click) qui appelle auto_open.
Si part accident je delete ce...
Re : Quel age a -t-il ?
voici un exemple en vba
{code}
Sub main()
Dim todaydate As Date
Dim howold As Date
todaydate = Format(Now, "DD/MM/YYYY")
howold = InputBox("Entrer votre date de naissance sous ce format DD/MM/YYYY")
'On Error GoTo errorhandler
'errorhandler:
'MsgBox "Vous devez...
Re : Problème de passage 2003 à 2007
bonjour,
Je regarderais les options de tcd
si les données nulles à masquer sont dans les lignes ou dans les colonnes,
il est possible de les ôter du TCD en les décochant.
ex : si une entête de colonne est "date" et que dans le champ date vous
voulez...
Re : Réalisation mensuel par excel
ou une variation en vba
Sub test()
'ecrire le mois dans la colonne P
'faire un filtre sur la colonne
'transcrire la colonne dans le bon mois
Sheets("Feuil1").Select
RowCount = Cells(Cells.Rows.Count, "b").End(xlUp).Row
Range("b2").Select...
Re : Création fichier CSV
Bonjour
Peut-etre que ceci peux t'aider
Sub creation_dossier()
Dim x As String, strPath As String
Const fich = "sera save en CSV"
On Error Resume Next
strPath = "C:\test\fich" & ".csv"
x = GetAttr(strPath) And 0...
Re : commentaire pre rempli
avez-vous essayer de faire un bouton et inserer le code suivant:
Sub ajoutcommentaire()
devis = InputBox("Le devis a ete envoye le?")
contrat = InputBox("Le contrat a ete envoye le?")
contact = InputBox("La personne contact est?")...
Re : Pb contenu de cellules
Avez-vous essayer quelque chose du genre
Sub test1()
'Dim valida As Date
RowCount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
'loop
myarray = Array("g", "h", "i", "j")
For j = 0 To 3
For i = 8 To RowCount...
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.