Discussion :

[jeromeperso]

Bonjour,

Je souhaite copier une colonne vers une autre colonne. Mon soucis c'est que les cellules sources contiennent une formule et je souhaite que ce soit le résultat de cette formule qui soit renvoyer.

Code :

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

=SI(ESTVIDE(D6);B6;D6)

et je souhaite que ma macro renvoie la valeur de la cellule et non son contenu.

En fouillant sur ce même forum j'ai obtenu deux macros :

1) première macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub copie_colonne_click
 
  Dim feuilleSource As Object 'Désigne la feuille source
  Dim feuilleDestination As Object 'Désigne la feuille destination
  Dim valeur As String
 
          monDocument = thisComponent
          feuilleSource = monDocument.sheets.getByName("Chef") ' definit la feuille source
          feuilleDestination = monDocument.sheets.getByName("vehicule1") ' définit la feuille de destination
 
          valeur = feuilleSource.getCellRangeByName("f201").Value
          feuilleDestination.getCellRangeByName("b205").Value = valeur
 
End Sub

Cette macro copie la valeur de la cellule et non son contenu donc ma copie se passe correctement mais pour une cellule et j'en ai 300 a traiter ...

2) seconde macro (trouvez telle quelle sur ce même forum)

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
31
32
33
Sub CopierZone()
 Dim monDocument As Object
 'Pour désigner les feuilles
 Dim mesFeuilles As Object
 'Pour désigner la feuille source
 Dim feuilleSource As Object
 'Pour désigner la feuille destination
 Dim feuilleDestination As Object
 'Pour désigner les cellules sources
 Dim celluleSource As Object
 'Pour désigner la cellule destination
 Dim zoneDestination As Object
 'Pour désigner la feuille active
 Dim FeuilleActive As Object
 
 monDocument = thisComponent
 mesFeuilles = monDocument.Sheets
 'Feuille source qui contient les connées à copier
 feuilleSource = mesFeuilles.getByName("Chef")
 'Zone des cellules à copier
 celluleSource = feuilleSource.getCellRangeByName("F6:F306")
 
 'Désignation de la feuille destination si on veut la désigner
 feuilleDestination = mesFeuilles.getByName("vehicule1")
 'CHOISIR CI DESSUS OU CI DESSOUS EN FONCTION
 'Ou bien je désigne la feuille active à l'écan comme étant la feuille destination
 'feuilleDestination = monDocument.getCurrentController().getActiveSheet() 'Je récupére le nom de la feuille active
 
 'Je désigne la cellule où la copie va commencer
 zoneDestination = feuilleDestination.getCellRangeByName("B10")
 'Là je procéde à la copie
 feuilleDestination.copyRange(zoneDestination.CellAddress, celluleSource.RangeAddress)
End Sub

Celle la focntionne pour toute la colonne mais copie le contenu tel quel donc ma formule et non son résultat ... :/

Je connais la solution sur le principe mais étant débutant en macro je n'arrive pas à mettre en application celle ci.

Pour la première macro, il faudrait mettre l'égalité en boucle en mettant la référence i dans le nom de la cellule (type : feuille1.a(i).value = feuille2.b(i-4).value) mais rien de ce que j'essaie ne fonctionne

Pour la seconde, il suffirait de rajouter un .value quelque part mais pareil ça ne fonctionne pas.

Si possible, j'aimerais une réponse pour chacune des macros, ça me permettrait d'apprendre mais déjà juste une qui fonctionne ça serai super

Merci d'avance pour le temps que vous allez me consacrer.

[zoom61]

Salut,

Pour la première pas de problème, voici le code :

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
Sub copie_colonne_click
 
  Dim feuilleSource As Object 'Désigne la feuille source
  Dim feuilleDestination As Object 'Désigne la feuille destination
  Dim valeur As String
 
          monDocument = thisComponent
          feuilleSource = monDocument.sheets.getByName("Chef") ' definit la feuille source
          feuilleDestination = monDocument.sheets.getByName("vehicule1") ' définit la feuille de destination
 
          for i = 6 to 306
          	valeur = feuilleSource.getCellRangeByName("F" & i).Value
          	if valeur <> 0 then feuilleDestination.getCellRangeByName("B" & i+4).Value = valeur
	  next
End Sub

Par contre pour la seconde, je ne vois pas, par contre elle devrait ressembler à 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
27
28
29
30
31
32
33
34
35
36
37
38
sub zoom61()
 
	document   = ThisComponent.Sheets
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
	Feuille = document.getByName("Chef")
	ThisComponent.CurrentController.ActiveSheet = Feuille
	document1   = ThisComponent.CurrentController.Frame
	dim CollageSpecial1(0) as new com.sun.star.beans.PropertyValue
	CollageSpecial1(0).Name = "ToPoint"
	CollageSpecial1(0).Value = "$F$6:$F$306"
	dispatcher.executeDispatch(document1, ".uno:GoToCell", "", 0, CollageSpecial1())
	dispatcher.executeDispatch(document1, ".uno:Copy", "", 0, Array())
 
	Feuille = document.getByName("vehicule1")
	ThisComponent.CurrentController.ActiveSheet = Feuille
	document1   = ThisComponent.CurrentController.Frame
	dim CollageSpecial2(0) as new com.sun.star.beans.PropertyValue
	CollageSpecial2(0).Name = "ToPoint"
	CollageSpecial2(0).Value = "$B$10"
	dispatcher.executeDispatch(document1, ".uno:GoToCell", "", 0, CollageSpecial2())
 
	dim CollageSpecial3(5) as new com.sun.star.beans.PropertyValue
	CollageSpecial3(0).Name = "Flags"
	CollageSpecial3(0).Value = "V"
	CollageSpecial3(1).Name = "FormulaCommand"
	CollageSpecial3(1).Value = 0
	CollageSpecial3(2).Name = "SkipEmptyCells"
	CollageSpecial3(2).Value = false
	CollageSpecial3(3).Name = "Transpose"
	CollageSpecial3(3).Value = false
	CollageSpecial3(4).Name = "AsLink"
	CollageSpecial3(4).Value = false
	CollageSpecial3(5).Name = "MoveMode"
	CollageSpecial3(5).Value = 4
	Dispatcher.executeDispatch(document1, ".uno:InsertContents", "", 0, CollageSpecial3())
 
end sub

@+.

[jeromeperso]

Merci beaucoup,

La première étant plus simple, je l'ai comprise de suite, je travail encore sur la seconde :/

Mais du coup j'ai une question sur la première : a la place de la condition différent de 0, je voudrais une condition si la case contient quelque chose (dans mon cas 0 est valeur mais les cases vides existe). J'ai fouillé un peu sur le forum et j'ai trouve ça :

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
Sub CompteCellule
  Dim Feuille As Object, PlageCellules As Object
  Dim Plages As Object, oEnum As Object, Cellule As Object
  Dim celluleNonVide As Long
 
  'Définit une feuille nommée "Feuille1" dans le classeur
  Feuille = ThisComponent.Sheets.getByName("Chef") 
  'Définit la plage de cellules
  PlageCellules = Feuille.getCellRangeByName("A6:F306")
 
  Plages = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges") 
  Plages.insertByName("", PlageCellules)
  oEnum = Plages.Cells.CreateEnumeration 
 
  'Boucle sur la plage
  While oEnum.hasMoreElements 
    'Nota:
    'Ne renvoie rien si la cellule est vide
    Cellule = oEnum.NextElement 
    celluleNonVide = celluleNonVide + 1
  Wend 
  print celluleNonVide & " cellule sont remplies."
End Sub

Mais j'arrive pas a remplacé la condition dans la macro :/

[zoom61]

Cela ressemblera à 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
27
28
29
Sub CompteCellule
	Dim Feuille As Object, PlageCellules As Object
	Dim Plages As Object, oEnum As Object, Cellule As Object
	Dim celluleNonVide As Long
 
	'Définit une feuille nommée "Feuille1" dans le classeur
	Feuille = ThisComponent.Sheets.getByName("Chef") 
	'Définit la plage de cellules
	PlageCellules = Feuille.getCellRangeByName("F6:F306")
 
	Plages = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges") 
	Plages.insertByName("", PlageCellules)
	oEnum = Plages.Cells.CreateEnumeration 
 
	monDocument = thisComponent	
	feuilleDestination = monDocument.sheets.getByName("vehicule1") 
 
	'Boucle sur la plage
	While oEnum.hasMoreElements 
		'Nota:
		'Ne renvoie rien si la cellule est vide
		Cellule = oEnum.NextElement 
		Position = Cellule.CellAddress.Row
		celluleNonVide = celluleNonVide + 1
		valeur = Cellule.Value
		feuilleDestination.getCellRangeByName("B" & Position+4).Value = valeur
	Wend 
	print celluleNonVide & " cellule sont remplies."
End Sub

@+.