Exportation de la même cellule
Fermé
fralex
-
Modifié par fralex le 5/06/2011 à 10:37
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 10 juin 2011 à 08:30
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 10 juin 2011 à 08:30
A voir également:
- Exportation de la même cellule
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Verrouiller cellule excel - Guide
- Comment faire la somme de plusieurs cellules non consécutives sur excel - Guide
- Fusionner cellule excel - Guide
2 réponses
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
7 juin 2011 à 09:51
7 juin 2011 à 09:51
Bonjour,
Pour pouvoir t'aider, il faudrait que tu nous dise ce qu'est cet "automate"?
S'agit-il d'une macro? Si oui, il nous faudrait son code et on pourra t'aider.
Pour pouvoir t'aider, il faudrait que tu nous dise ce qu'est cet "automate"?
S'agit-il d'une macro? Si oui, il nous faudrait son code et on pourra t'aider.
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
10 juin 2011 à 08:30
10 juin 2011 à 08:30
Re,
je ne suis pas sûre d'avoir tout compris mais essaie ca :
Sub Macro1()
i = 2
do while cells(i,2)<>""
i=i+1
loop
cells(i,2).select
ActiveCell.FormulaR1C1 = "='[Eurocell tube1.xlsx]Legend1'!R" & i-1 & "C2"
End Sub
je ne suis pas sûre d'avoir tout compris mais essaie ca :
Sub Macro1()
i = 2
do while cells(i,2)<>""
i=i+1
loop
cells(i,2).select
ActiveCell.FormulaR1C1 = "='[Eurocell tube1.xlsx]Legend1'!R" & i-1 & "C2"
End Sub
7 juin 2011 à 19:19
cet automate est un cytomètre en flux (BC), il me semble qu'il y a une macro, mais je ne sais pas vraiment.
Comment peut on voir son code?
merci
8 juin 2011 à 08:14
9 juin 2011 à 21:07
9 juin 2011 à 21:18
Sub Macro1()
'
' Macro1 Macro
' Test CD3
'
'
ActiveCell.FormulaR1C1 = "='[Eurocell tube1.xlsx]Legend1'!R1C2"
Range("B2").Select
End Sub
Sub Macro2()
'
' Macro2 Macro
' Test CD4
'
'
ActiveCell.FormulaR1C1 = "='[Eurocell tube1.xlsx]Legend1'!R2C2"
Range("B3").Select
End Sub
Merci