InputBox renvoyant une cellule pilotée en VB
farrakis
Messages postés
32
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
12 mai 2013
-
1 févr. 2005 à 18:46
farrakis Messages postés 32 Date d'inscription vendredi 28 janvier 2005 Statut Membre Dernière intervention 12 mai 2013 - 2 févr. 2005 à 09:43
farrakis Messages postés 32 Date d'inscription vendredi 28 janvier 2005 Statut Membre Dernière intervention 12 mai 2013 - 2 févr. 2005 à 09:43
A voir également:
- InputBox renvoyant une cellule pilotée en VB
- Vbs inputbox - Conseils pratiques -Visual Basic / VB.NET
- Selectionner la derniere cellule non vide d'une colonne excel vba ✓ - Forum Visual Basic 6
- Vba copier valeur cellule dans une autre feuille ✓ - Forum Visual Basic 6
- Vba format cellule - Forum Visual Basic
- Copier automatiquement une cellule excel dans une autre feuille (vba) - Forum Visual Basic
2 réponses
mrdep1978
Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
7
1 févr. 2005 à 19:34
1 févr. 2005 à 19:34
Si tu sais ouvrir le fichier Excel, il n'y a plus vraiment de différence entre le VBA et VB
Public Sub gsub_Test()
Dim xlApp As Object
Dim l_Sheet As Object
Dim l_WorkBook As Object
Dim ls_Result As String
'Ouvre une nouvelle instance d'Excel
Set xlApp = CreateObject("Excel.Application")
'Ouvre ton fichier Excel
Set l_WorkBook = xlApp.Workbooks.Open("c:\test.xls")
'Travaille avec la feuille "Feuil". Ca évite par la suite d'avoir à réécrire systématiquement xlApp.Worksheets("Feuil1").Range(....
Set l_Sheet = l_WorkBook.Worksheets("Feuil1")
'Affiche le contenu de A1
ls_Result = InputBox("Valeur de la cellule A1:", , l_Sheet.range("A1").Value)
'Ecrit la nouvelle valeur en A1
l_Sheet.range("A1").Value = ls_Result
'Ferme le fichier Excel en sauvegardant les modifs
l_WorkBook.Close True
'Quitte Excel
xlApp.Quit
'Détruit l'objet Application
Set xlApp = Nothing
End Sub
Public Sub gsub_Test()
Dim xlApp As Object
Dim l_Sheet As Object
Dim l_WorkBook As Object
Dim ls_Result As String
'Ouvre une nouvelle instance d'Excel
Set xlApp = CreateObject("Excel.Application")
'Ouvre ton fichier Excel
Set l_WorkBook = xlApp.Workbooks.Open("c:\test.xls")
'Travaille avec la feuille "Feuil". Ca évite par la suite d'avoir à réécrire systématiquement xlApp.Worksheets("Feuil1").Range(....
Set l_Sheet = l_WorkBook.Worksheets("Feuil1")
'Affiche le contenu de A1
ls_Result = InputBox("Valeur de la cellule A1:", , l_Sheet.range("A1").Value)
'Ecrit la nouvelle valeur en A1
l_Sheet.range("A1").Value = ls_Result
'Ferme le fichier Excel en sauvegardant les modifs
l_WorkBook.Close True
'Quitte Excel
xlApp.Quit
'Détruit l'objet Application
Set xlApp = Nothing
End Sub
farrakis
Messages postés
32
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
12 mai 2013
2 févr. 2005 à 09:43
2 févr. 2005 à 09:43
Merci de ta reponse,
effectivement ça marche comme ça
mais c'est ce que j'avais fait hier et ça marchait pas :-(
Fo croire que c'était un jour sans....
effectivement ça marche comme ça
mais c'est ce que j'avais fait hier et ça marchait pas :-(
Fo croire que c'était un jour sans....
