Automatiser un calcul excel, plusieurs questions Résolu/Fermé

Question

Bonjour, 
 Je sais coder en  Perl, C:C++ et Python, mais là on me demande de coder en VBA et j'ai du mal.
Premièrement, je voulais savoir si quelqu'un peut m'indiquer un site (gratuit) pour apprendre le VBA ?
J'en trouve pas mal, mais sans exemple concrets, sans types de fonctions bien définies. Je dois mal chercher mais je trouve sur des trucs avec peu de détails, et peu d'exemples. Je trouve pas ce langage intuitif donc j'ai vraiment du mal, mais j'aimerai apprendre.


Sinon, je dois automatiser un procédé.
J'aurai du mal à vous montrer le fichier excel (confidentiel). Mais je pense pourvoir vous l'expliquer.

Il y a plusieurs feuilles de calculs. Chaque feuille dépend de deux critères, du site et d'un mode.
Sur chaque feuille l'opérateur doit rentrer des valeurs (des cases jaunes) et va lui permettre de lire une valeur dans un tableau.

Mon but serait d'automatiser tout ça.
Alors l'opérateur devra juste remplir 7 cases sur une feuille que j'ai nommé « Interface ».
Les deux premiers (menus déroulant imbriqués) donnent le nom de la feuille de calcul cible (nommé « Cible »).

3 sont des données à remplacer dans la feuille « Cible » pour que les calculs s'enchainent avec les bonnes valeurs. Une autre n'est qu'une information. La dernière permet de situer sur le tableau des résultats.
On doit alors sortir deux valeurs, pour l'indiquer à l'operateur de préférence sur la feuille interface.
L'exécution de cette commande doit se faire après avoir rempli les données et appuyer sur un bouton.

Notes : Les cellules dans la feuille cible pour lesquels je dois rentrer les valeurs n'ont pas forcément la même localisation (en général la ligne change entre deux feuilles).

J'ai commencé par ça, mais je pense vraiment que c'est pas super :

Sub Test()

'Declaration des variables
Dim Cible As String
Dim Puissance As Single
Dim BU As Single
Dim Temperature As Single
Dim Coeff As Single
Dim Grappe As Boolean

'Activation de la feuille d'entrée
Worksheets("Interface").Activate

'On récupére les données d'entrée
Cible = XL.Range("A7").Value
Puissance = XL.Range("C3").Value
BU = XL.Range("D3").Value
Temperature = XL.Range("E3").Value
Coeff = XL.Range("F3").Value
Grappe = XL.Range("G3").Value

'Activation de la cible
   Sheets(Cible).Activate
   
'On écrit les valeurs d'entrée dans les cases correspondantes

Range("C4").Select
Selection.Value = Puissance

Range("D34").Select
Selection.Value = Temperature

Range("C36").Select
Selection.Value = Coeff

End Sub

Je suis vraiment nul là, donc n'hésitez pas à détruire cette ébauche, je sais que c'est nul.

Merci beaucoup d'avance,
Configuration: Windows XP / Internet Explorer 8.0

Akre66 · Answer

A oui et le code ne tient pas encore en compte que les données à rentrer ne sont toujours pas aux memes colonnes ou lignes

jordane45 · Answer

Bonjour,

Déjà.. évite de faire des  .SELECT  .... Selection.value ......
Ensuite.. tu utilises une variable XL .. mais qui n'existe pas (n'est pas initialisée dans ton code)..

Bref.. ton code "corrigé" donne :

Sub Test()

'Declaration des variables
Dim Cible As String
Dim Puissance As Single
Dim BU As Single
Dim Temperature As Single
Dim Coeff As Single
Dim Grappe As Boolean

Dim FSource As Worksheet
Dim FCible As Worksheet

'Feuille Source
Set FSource = Worksheets("Interface")

'On récupére les données d'entrée
    Cible = FSource.Range("A7").Value
    Puissance = FSource.Range("C3").Value
    BU = FSource.Range("D3").Value
    Temperature = FSource.Range("E3").Value
    Coeff = FSource.Range("F3").Value
    Grappe = FSource.Range("G3").Value
  
'Feuille Cible
    Set FCible = Worksheets(Cible)
'On écrit les valeurs d'entrée dans les cases correspondantes
    FCible.Range("C4").Value = Puissance
    FCible.Range("D34").Value = Temperature
    FCible.Range("C36").Value = Coeff

End Sub

Akre66 · Answer

Merci beaucoup

Pardon pour les erreurs, mais le problème qui me pose surtout problème c'est comment puis je remplacer les valeurs dans les feuilles cibles ?

J'essaye de trouver un équivalant "grep" pour la VBA, afin de déterminer la cellule ou voir la cellule d'avant.

jordane45 · Answer

Ca pouvait pas être aussi facile (mohahaha)

Si c'était "facile".. tu n'aurais pas besoin de nous...  :-)



Question, pour la fonction FIND, les cellules fusionnés posent elle pas problèmes ?
J'essaye de retrouver les cellules commes la première fois, le string est le même, j'ai même mis xlPart à la place de xlWhole dans le FIND, mais rien n'y change.
 

Problème ? .. Non... mais il faut connaitre le fonctionnement d' Excel.
Les Coordonnées d'une plage de cellules Fusionnées.. c'est la cellule la plus en HAUT à GAUCHE

Par exemple.. Fusionne les cellules A1 Jusqu'à C6 ....
Places toi sur la cellule...
Tu verras (dans la zone en haut à gauche de ta fenêtre) que ses coordonnées sont .... A1 !


Donc.. il va te falloir .. vérifier si la cellule est fusionnée ou non avant d'appliquer ton "+1" sur ta colonne.

'on cherche dans quelle cellule se trouve le mot "test"
' et on y écrit ..."ça marche"
cherche = ChercheCelluleByString("test")
If cherche <> "erreur" Then
  Set cellToWrite = Cells(Range(cherche).Row, Range(cherche).Column + 1)
'-------------------------------------------------------
 'On regarde si ce sont des cellules Fusionnées 
'-------------------------------------------------------
 If cellToWrite.MergeCells Then
     Debug.Print "cellule fusionnée : " & cellToWrite.MergeArea.Address
      MergRng = Split(cellToWrite.MergeArea.Address, ":")
      LastColMerge = Range(MergRng(1)).Column
      LastRowMerge = Range(MergRng(1)).Row
      Set cellToWrite = Cells(LastRowMerge, LastColMerge + 1)
  End If
'-------------------------------------------------------     
 cellToWrite.Value = "ça marche"
  
End If

Avant de poser une question, merci de lire la charte du site.
Cordialement, Jordane

Akre66 · Answer

A non j'ai dit que j'ai que ça pouvait pas être aussi facile, c'est parce que je pensais que je pouvais appliquer la même logique que pour la première valeur, mais ça marche pas vu que les cellules sont fusionnés. C'était pas du tout dans le sens où j'aurai pu tout déchiré...
En soit non, j'aurai pas pu sans t'aide, du moins il m'aurait fallu bien plus de temps. Merci d'ailleurs.

Je commence à comprendre la logique du VBA mais je trouve ça pas intuitif... 

Sinon, j'ai toujours un erreur pour les cellules fusionnées. Si je trouve pas je reviendrai, sinon ça devrait le faire donc merci :)

Akre66 · Answer

C'est bon !Quelques petits imprévus mais ça marche.

Pour le reste je me pose quelques questions...
Alors avec deux données (une donnée un entier qui varie pas mal et un autre booléen (oui ou non)) je dois déterminer un valeur à l'aide d'un tableau.
Ce tableau à deux entrée (Varriable1(entier): ligne, Varriable2(booléen)=colonne)) se situe toujours pas au même niveau.

Donc j'ai pensé à faire un finder en se situant juste sur la colonne ou sont regroupés la variable 1 (les entiers) et après la première case du tableau, pour sortir la ligne de la valeur que je cherche. 
Après pour la colonne comme elle ne varie pas de feuille en feuille je peux juste la donner directement. Du coup je voulais savoir ce que tu en pensais ?

Tu connais d'autres méthodes pour sortir une valeur d'un tableau ?

Merci, mais sinon je pense pouvoir m'en tirer grâce à toi... Merci encors