Copie conditionnelle entre feuille Oo Calc
billouane
Messages postés
4
Statut
Membre
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
hello,
J'ai besoin pour traduire une macro excel en Oo 2.0 !!!!
Voila, j'ai fais une macro trés simple sur Excel dont voici le but:
Si, dans la première feuille, on inscrit une valeur dans une cellule de la première colonne (exemple : 3:1), la macro va chercher dans la seconde feuille les renseignements (à savoir des références) associées à cette valeur et les copie dans les deux cellules suivantes ( 3:2 et 3:3).
Sub Copie_conditionnelle()
Dim i As Integer
Dim j As Integer
For i = 3 To 13
For j = 3 To 13
If Worksheets(2).Cells(j, 1) = Worksheets(1).Cells(i, 1) Then
Worksheets(1).Cells(i, 2) = Worksheets(2).Cells(j, 2)
Worksheets(1).Cells(i, 3) = Worksheets(2).Cells(j, 3)
End If
Next
Next
End Sub
Si quelqu'un pouvait me donner un coup de pouce pour la traduire en Open office 2.0 ce serait sympa!!!
Merci
J'ai besoin pour traduire une macro excel en Oo 2.0 !!!!
Voila, j'ai fais une macro trés simple sur Excel dont voici le but:
Si, dans la première feuille, on inscrit une valeur dans une cellule de la première colonne (exemple : 3:1), la macro va chercher dans la seconde feuille les renseignements (à savoir des références) associées à cette valeur et les copie dans les deux cellules suivantes ( 3:2 et 3:3).
Sub Copie_conditionnelle()
Dim i As Integer
Dim j As Integer
For i = 3 To 13
For j = 3 To 13
If Worksheets(2).Cells(j, 1) = Worksheets(1).Cells(i, 1) Then
Worksheets(1).Cells(i, 2) = Worksheets(2).Cells(j, 2)
Worksheets(1).Cells(i, 3) = Worksheets(2).Cells(j, 3)
End If
Next
Next
End Sub
Si quelqu'un pouvait me donner un coup de pouce pour la traduire en Open office 2.0 ce serait sympa!!!
Merci
A voir également:
- Copie conditionnelle entre feuille Oo Calc
- Mise en forme conditionnelle excel - Guide
- Copie cachée - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Copie disque dur - Guide
1 réponse
Salut,
pour ce genre de recherche tu peux faire simple avec la rechercheV
par exemple tu met dans une cellule B3 de la feuille 1 cette formule
=RECHERCHEV($A$3;Feuil2!$A$1:$C$27;1)
quand tu saisieras en A3 le n de réference, dans la cellule B3 s'affichera le contenu de la 1ére cellule à droite de la reference de la feuille 2
=RECHERCHEV($A$3;Feuil2!$A$1:$C$27;2)
cette formule en C3 afichera le contenu de la 2émé cellule à droite de la cellule de réf
=RECHERCHEV($A$3;Feuil2!$A$1:$C$27;3)
D3
etc
A+
pour ce genre de recherche tu peux faire simple avec la rechercheV
par exemple tu met dans une cellule B3 de la feuille 1 cette formule
=RECHERCHEV($A$3;Feuil2!$A$1:$C$27;1)
quand tu saisieras en A3 le n de réference, dans la cellule B3 s'affichera le contenu de la 1ére cellule à droite de la reference de la feuille 2
=RECHERCHEV($A$3;Feuil2!$A$1:$C$27;2)
cette formule en C3 afichera le contenu de la 2émé cellule à droite de la cellule de réf
=RECHERCHEV($A$3;Feuil2!$A$1:$C$27;3)
D3
etc
A+
