Discussion :

[pedroo]

Bonsoir à tous, je débute dans le visual basic et j'aimerai savoir comment faire pour rechercher et copier une valeur dans un fichier excel le tout en vba.

Je m'explique, jai un fichier excel avec deux onglets : un catalogue et une feuille de calcul. Comment faire pour aller chercher une cellule du tableau de l'onglet catalogue afin de m'en servir dans la feuille de calcul ?

Merci de votre aide.

[laetitia]

bonjour pedroo le forum
pour copier

un ex simple: copy la cel a1 de la feuille1 dans la cel a1 de la feuille2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Option Explicit
Sub test()
Sheets(2).Cells(1, 1) = Sheets(1).Cells(1, 1)
End Sub

tu parle de rechercher on peut utiliser la fonction find tu cherches toujours la meme valeur sur la meme colonne sur une plage de cellules !!!

comme cela pas facile zip un bout de fichier pour voir ce que tu veus faire excatement

[pedroo]

Merci de ta réponse, mais à quoi correspond exactement les 1 pour la sélection de la cellule ? si je veux par exemple la cellule B6 que dois-je mettre à l'intèrieur de cells(?,?)

Merci

[laetitia]

re copy b6 dans feuille2 en a1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Option Explicit
Sub test()
Sheets(2).Cells(1, 1) = Sheets(1).Cells(6, 2)
End Sub

copy b6 dans feuille2 en a2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
Sheets(2).Cells(2, 1) = Sheets(1).Cells(6, 2)
End Sub

salutations
ps tu peus aussi utiliser range plus facile a comprendre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Option Explicit
Sub test()
Sheets(2).Range("a2") = Sheets(1).Range("b6")
End Sub

[pedroo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Sheets("Résultats").Range("B1").Offset(Li, co) = Sheets("Catalogue").Range("A2").Offset(Li, co)       
 
 PPP = Sheets("Catalogue").Cells(2, 3).Offset(Li, co)                                                         
 
PPP = PPP / 100                                                                                   
    P = G + S + PPP
 
    Py = P * Cos(A)
    Pz = P * Sin(A)
 
 
    Iy = Sheets("Catalogue").Range("D2").Offset(Li, co)
    Iy = Iy * 10000
    fz0 = (5 * Pz * L ^ 4) / (384 * E * Iy)

Voici un bout de mon code
J'ai deux problème le premier est avec la recherche dans le catalogue il m'affiche sur la feuille résultat tout la colonne du tableau alors que je ne demande que la cellule A2 ??
L'autre probleme est avec la formule fz0 qui lorsque je lance le programme me dit "dépassement de capacité" cela vient peut-être de ce qui suit mais je n'arrive pas trés bien à comprendre la différence entre integer/single

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim P As Single
Dim Py As Single
Dim Pz As Single
Dim fy0 As Single
Dim fz0 As Single
Dim Iy As Single
Dim Iz As Single
Const E = 210000#

Merci de votre aide.