Discussion :

[papyalg]

Bonjour, j'ai un classeur dans lequel j'ai une feuille_1 intitulée "calcul vins de fruits" et dans laquelle il faut introduire la "densité"
je voudrais récupérer dans la feuille_2 "densitespoires" les valeurs "sucre" et "alcool" pour la "densité" correspondante.
j'ai fait la partie de recherche (voir ci-dessous) mais je ne sais pas comment aller sur la feuille_2 et recopier ces données ?
cordialement Alain

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub ControlerContenuCellule 
Dim oDoc As Object , Feuille As Object , densite as integer , indx as integer
Dim Cellule As Object , cellulesuc As Object ,  cellulealc As Object 
dim casein as string , casesuc as string , casealc as string
 
oDoc = ThisComponent 
Feuille = oDoc.getSheets.getByName("densitespoires")
rem densite doit venir de la feuille "calcul vins de fruits"
densite = 1050
for indx = 1 to 80 
casein = "A" + indx
casesuc = "b" + indx
casealc = "c" + indx
Cellule = Feuille.getCellRangeByName(casein)
cellulesuc = Feuille.getCellRangeByName(casesuc)  
cellulealc = Feuille.getCellRangeByName(casealc)
 
rem MsgBox casein & " av densite: "  & Cellule.Value  & "sucre : "  &  cellulesuc.Value &  "alcool : "  &  cellulealc.Value 
 
Select Case Cellule.value 
  Case  densite
    MsgBox "densite: "  & Cellule.Value & " sucre : " & cellulesuc.Value & " alcool : " & cellulealc.Value 
    exit for
  Case com.sun.star.table.CellContentType.EMPTY 
    Msgbox "Vide" 
    exit for
End Select 
next
 
End Sub

[zoom61]

Quelque chose comme cela :

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
17
18
19
20
21
22
23
24
25
26
sub zoom61
    Dim monDocument As Object, lesFeuilles As Object 
    Dim maFeuille1 As Object, maFeuille2 As Object, maZone As Object, maCellule As Object    
    Dim jeCherche As Object, trouv As Variant
    monDocument = ThisComponent
    lesFeuilles = monDocument.Sheets
    maFeuille1 = lesFeuilles.getByName("calcul vins de fruits")
    maFeuille2 = lesFeuilles.getByName("densitespoires")
    maZone = maFeuille2.getCellRangeByName("A1:A1000")
    jeCherche = maZone.createSearchDescriptor
    with jeCherche
      .SearchString = 1050 'mettre ici la valeur, cela peut-être le contenu d'une cellule
      .SearchWords = false 
    end with
    trouv = maZone.findFirst(jeCherche)
    Do Until isNull(trouv)
      Ligne = trouv.CellAddress.Row
      Sucre = maFeuille2.getCellByPosition(1,Ligne).value
      Alcool = maFeuille2.getCellByPosition(2,Ligne).value
      maCellule = maFeuille1.getCellRangeByName("G35")
      maCellule.Value = Sucre
      maCellule = maFeuille1.getCellRangeByName("J35")
      maCellule.Value = Alcool
      trouv = maZone.findNext(trouv, jeCherche)
    Loop
end sub

[papyalg]

Un grand merci pour votre aide, j'ai un peu galéré pour mettre la variable "densité" de la feuille_1 mais maintenant tout fonctionne
très cordialement Alain