Je viens vers vous pour un coup de pouce pour terminer 1 macro. J'ai 1
feuille nommée "Données" qui a sur la colonne A1:Ax les n° de comptes qui
représente le noms des onglets de mon classeur "bilan.xls", en colonne
B1:Bx, les n° de comptes que j'ai fait l'extraction de la balance comptable
et en colonne c le solde des n° de comptes de l'extraction. Ce qui me bloque
actuellement, c que je n' arrive pas à faire ceci :
si colA = ColB => activer l' onglet correspondant et en C14 ( par ex: ) le
montant et ainsi de suite.
si colA <> colb => call macro insérerFeuille ( ce macro je l'ai fait ) et
ainsi de suite.
J'ai essayé avec l'enregistreur de macro, mais çà ne marche pas.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-François Aubert
Salut Seng,
Cela convient-il ?
Sub yy() Dim c Sheets("Données").Select For Each c In Range("A1:" & Range("A65536").End(xlUp).Address) If c.Value = c.Offset(0, 1).Value Then Sheets(c.Value).Range("C14") = c.Offset(0, 2).Value Else Call macro_insérerFeuille Sheets("Données").Select End If Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Seng Hua" a écrit dans le message de news:4015749f$0$6970$
Bonsoir à tous,
Je viens vers vous pour un coup de pouce pour terminer 1 macro. J'ai 1 feuille nommée "Données" qui a sur la colonne A1:Ax les n° de comptes qui représente le noms des onglets de mon classeur "bilan.xls", en colonne B1:Bx, les n° de comptes que j'ai fait l'extraction de la balance comptable et en colonne c le solde des n° de comptes de l'extraction. Ce qui me bloque actuellement, c que je n' arrive pas à faire ceci :
si colA = ColB => activer l' onglet correspondant et en C14 ( par ex: ) le montant et ainsi de suite.
si colA <> colb => call macro insérerFeuille ( ce macro je l'ai fait ) et ainsi de suite.
J'ai essayé avec l'enregistreur de macro, mais çà ne marche pas.
Merci d'avance pr votre aide.
Seng
Salut Seng,
Cela convient-il ?
Sub yy()
Dim c
Sheets("Données").Select
For Each c In Range("A1:" & Range("A65536").End(xlUp).Address)
If c.Value = c.Offset(0, 1).Value Then
Sheets(c.Value).Range("C14") = c.Offset(0, 2).Value
Else
Call macro_insérerFeuille
Sheets("Données").Select
End If
Next
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Seng Hua" <senghua@club-internet.fr> a écrit dans le message de
news:4015749f$0$6970$7a628cd7@news.club-internet.fr...
Bonsoir à tous,
Je viens vers vous pour un coup de pouce pour terminer 1 macro. J'ai 1
feuille nommée "Données" qui a sur la colonne A1:Ax les n° de comptes qui
représente le noms des onglets de mon classeur "bilan.xls", en colonne
B1:Bx, les n° de comptes que j'ai fait l'extraction de la balance comptable
et en colonne c le solde des n° de comptes de l'extraction. Ce qui me bloque
actuellement, c que je n' arrive pas à faire ceci :
si colA = ColB => activer l' onglet correspondant et en C14 ( par ex: ) le
montant et ainsi de suite.
si colA <> colb => call macro insérerFeuille ( ce macro je l'ai fait ) et
ainsi de suite.
J'ai essayé avec l'enregistreur de macro, mais çà ne marche pas.
Sub yy() Dim c Sheets("Données").Select For Each c In Range("A1:" & Range("A65536").End(xlUp).Address) If c.Value = c.Offset(0, 1).Value Then Sheets(c.Value).Range("C14") = c.Offset(0, 2).Value Else Call macro_insérerFeuille Sheets("Données").Select End If Next End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Seng Hua" a écrit dans le message de news:4015749f$0$6970$
Bonsoir à tous,
Je viens vers vous pour un coup de pouce pour terminer 1 macro. J'ai 1 feuille nommée "Données" qui a sur la colonne A1:Ax les n° de comptes qui représente le noms des onglets de mon classeur "bilan.xls", en colonne B1:Bx, les n° de comptes que j'ai fait l'extraction de la balance comptable et en colonne c le solde des n° de comptes de l'extraction. Ce qui me bloque actuellement, c que je n' arrive pas à faire ceci :
si colA = ColB => activer l' onglet correspondant et en C14 ( par ex: ) le montant et ainsi de suite.
si colA <> colb => call macro insérerFeuille ( ce macro je l'ai fait ) et ainsi de suite.
J'ai essayé avec l'enregistreur de macro, mais çà ne marche pas.
Merci d'avance pr votre aide.
Seng
Seng Hua
bonsoir à tous, Un grand remerciement à Jean François pou rla réponse, je vais testé demain.
Encore merci
Seng
"Seng Hua" a écrit dans le message de news:4015749f$0$6970$
Bonsoir à tous,
Je viens vers vous pour un coup de pouce pour terminer 1 macro. J'ai 1 feuille nommée "Données" qui a sur la colonne A1:Ax les n° de comptes qui représente le noms des onglets de mon classeur "bilan.xls", en colonne B1:Bx, les n° de comptes que j'ai fait l'extraction de la balance comptable
et en colonne c le solde des n° de comptes de l'extraction. Ce qui me bloque
actuellement, c que je n' arrive pas à faire ceci :
si colA = ColB => activer l' onglet correspondant et en C14 ( par ex: ) le montant et ainsi de suite.
si colA <> colb => call macro insérerFeuille ( ce macro je l'ai fait ) et ainsi de suite.
J'ai essayé avec l'enregistreur de macro, mais çà ne marche pas.
Merci d'avance pr votre aide.
Seng
bonsoir à tous,
Un grand remerciement à Jean François pou rla réponse, je vais testé demain.
Encore merci
Seng
"Seng Hua" <senghua@club-internet.fr> a écrit dans le message de
news:4015749f$0$6970$7a628cd7@news.club-internet.fr...
Bonsoir à tous,
Je viens vers vous pour un coup de pouce pour terminer 1 macro. J'ai 1
feuille nommée "Données" qui a sur la colonne A1:Ax les n° de comptes qui
représente le noms des onglets de mon classeur "bilan.xls", en colonne
B1:Bx, les n° de comptes que j'ai fait l'extraction de la balance
comptable
et en colonne c le solde des n° de comptes de l'extraction. Ce qui me
bloque
actuellement, c que je n' arrive pas à faire ceci :
si colA = ColB => activer l' onglet correspondant et en C14 ( par ex: ) le
montant et ainsi de suite.
si colA <> colb => call macro insérerFeuille ( ce macro je l'ai fait ) et
ainsi de suite.
J'ai essayé avec l'enregistreur de macro, mais çà ne marche pas.
bonsoir à tous, Un grand remerciement à Jean François pou rla réponse, je vais testé demain.
Encore merci
Seng
"Seng Hua" a écrit dans le message de news:4015749f$0$6970$
Bonsoir à tous,
Je viens vers vous pour un coup de pouce pour terminer 1 macro. J'ai 1 feuille nommée "Données" qui a sur la colonne A1:Ax les n° de comptes qui représente le noms des onglets de mon classeur "bilan.xls", en colonne B1:Bx, les n° de comptes que j'ai fait l'extraction de la balance comptable
et en colonne c le solde des n° de comptes de l'extraction. Ce qui me bloque
actuellement, c que je n' arrive pas à faire ceci :
si colA = ColB => activer l' onglet correspondant et en C14 ( par ex: ) le montant et ainsi de suite.
si colA <> colb => call macro insérerFeuille ( ce macro je l'ai fait ) et ainsi de suite.
J'ai essayé avec l'enregistreur de macro, mais çà ne marche pas.
Merci d'avance pr votre aide.
Seng
Seng Hua
Bonsoir à tous,
Me re- voilà pour, à nouveau, adresser à vos connaissances. JF Aubert m'a donné 1 astuce sur l' objet ci-dessus. J'ai testé, ça fonctionne au niveau d'ajout des onglets, mais ne met pas la valeur.
voici le code :
Sub yy() Dim c sheets("Données").select For each c in Range("A1:" & Range("A65536").End (xlup).address) If c.Value=c.Offset(0,1).Value then sheets(c.Value).Range("C14")=c.Offset(0,2).Value Else Call macro_insérerFeuille Sheets("Données").select End if next End Sub
Est ce qq'1 pourrez m'aider ? D'avance merci
Seng "Seng Hua" a écrit dans le message de news:4016bcd2$0$6982$
bonsoir à tous, Un grand remerciement à Jean François pou rla réponse, je vais testé demain.
Encore merci
Seng
"Seng Hua" a écrit dans le message de news:4015749f$0$6970$
Bonsoir à tous,
Je viens vers vous pour un coup de pouce pour terminer 1 macro. J'ai 1 feuille nommée "Données" qui a sur la colonne A1:Ax les n° de comptes qui
représente le noms des onglets de mon classeur "bilan.xls", en colonne B1:Bx, les n° de comptes que j'ai fait l'extraction de la balance comptable
et en colonne c le solde des n° de comptes de l'extraction. Ce qui me bloque
actuellement, c que je n' arrive pas à faire ceci :
si N° de Compte colA = N° de Cpte ColB => activer l' onglet correspondant et en C14 ( par ex: ) coller le
montant qui est le valeur de la col C, et ainsi de suite.
si colA <> colb => call macro insérerFeuille ( ce macro je l'ai fait ) et
ainsi de suite.
J'ai essayé avec l'enregistreur de macro, mais çà ne marche pas.
Merci d'avance pr votre aide.
Seng
Bonsoir à tous,
Me re- voilà pour, à nouveau, adresser à vos connaissances. JF Aubert m'a
donné 1 astuce sur l' objet ci-dessus. J'ai testé, ça fonctionne au niveau
d'ajout des onglets, mais ne met pas la valeur.
voici le code :
Sub yy()
Dim c
sheets("Données").select
For each c in Range("A1:" & Range("A65536").End (xlup).address)
If c.Value=c.Offset(0,1).Value then
sheets(c.Value).Range("C14")=c.Offset(0,2).Value
Else
Call macro_insérerFeuille
Sheets("Données").select
End if
next
End Sub
Est ce qq'1 pourrez m'aider ?
D'avance merci
Seng
"Seng Hua" <senghua@club-internet.fr> a écrit dans le message de
news:4016bcd2$0$6982$7a628cd7@news.club-internet.fr...
bonsoir à tous,
Un grand remerciement à Jean François pou rla réponse, je vais testé
demain.
Encore merci
Seng
"Seng Hua" <senghua@club-internet.fr> a écrit dans le message de
news:4015749f$0$6970$7a628cd7@news.club-internet.fr...
Bonsoir à tous,
Je viens vers vous pour un coup de pouce pour terminer 1 macro. J'ai 1
feuille nommée "Données" qui a sur la colonne A1:Ax les n° de comptes
qui
représente le noms des onglets de mon classeur "bilan.xls", en colonne
B1:Bx, les n° de comptes que j'ai fait l'extraction de la balance
comptable
et en colonne c le solde des n° de comptes de l'extraction. Ce qui me
bloque
actuellement, c que je n' arrive pas à faire ceci :
si N° de Compte colA = N° de Cpte ColB => activer l' onglet
correspondant et en C14 ( par ex: ) coller le
montant qui est le valeur de la col C, et ainsi de suite.
si colA <> colb => call macro insérerFeuille ( ce macro je l'ai fait )
et
ainsi de suite.
J'ai essayé avec l'enregistreur de macro, mais çà ne marche pas.
Me re- voilà pour, à nouveau, adresser à vos connaissances. JF Aubert m'a donné 1 astuce sur l' objet ci-dessus. J'ai testé, ça fonctionne au niveau d'ajout des onglets, mais ne met pas la valeur.
voici le code :
Sub yy() Dim c sheets("Données").select For each c in Range("A1:" & Range("A65536").End (xlup).address) If c.Value=c.Offset(0,1).Value then sheets(c.Value).Range("C14")=c.Offset(0,2).Value Else Call macro_insérerFeuille Sheets("Données").select End if next End Sub
Est ce qq'1 pourrez m'aider ? D'avance merci
Seng "Seng Hua" a écrit dans le message de news:4016bcd2$0$6982$
bonsoir à tous, Un grand remerciement à Jean François pou rla réponse, je vais testé demain.
Encore merci
Seng
"Seng Hua" a écrit dans le message de news:4015749f$0$6970$
Bonsoir à tous,
Je viens vers vous pour un coup de pouce pour terminer 1 macro. J'ai 1 feuille nommée "Données" qui a sur la colonne A1:Ax les n° de comptes qui
représente le noms des onglets de mon classeur "bilan.xls", en colonne B1:Bx, les n° de comptes que j'ai fait l'extraction de la balance comptable
et en colonne c le solde des n° de comptes de l'extraction. Ce qui me bloque
actuellement, c que je n' arrive pas à faire ceci :
si N° de Compte colA = N° de Cpte ColB => activer l' onglet correspondant et en C14 ( par ex: ) coller le
montant qui est le valeur de la col C, et ainsi de suite.
si colA <> colb => call macro insérerFeuille ( ce macro je l'ai fait ) et
ainsi de suite.
J'ai essayé avec l'enregistreur de macro, mais çà ne marche pas.
Merci d'avance pr votre aide.
Seng
Seng Hua
"Seng Hua" a écrit dans le message de news:40196182$0$6976$
Bonsoir à tous,
Me re- voilà pour, à nouveau, adresser à vos connaissances. JF Aubert m'a donné 1 astuce sur l' objet ci-dessus. J'ai testé, ça fonctionne au niveau d'ajout des onglets, mais ne met pas la valeur.
voici le code :
Sub yy() Dim c sheets("Données").select For each c in Range("A1:" & Range("A65536").End (xlup).address) If c.Value=c.Offset(0,1).Value then sheets(c.Value).Range("C14")=c.Offset(0,2).Value Else Call macro_insérerFeuille Sheets("Données").select End if next End Sub
Est ce qq'1 pourrez m'aider ? D'avance merci
Seng "Seng Hua" a écrit dans le message de news:4016bcd2$0$6982$
bonsoir à tous, Un grand remerciement à Jean François pou rla réponse, je vais testé demain.
Encore merci
Seng
"Seng Hua" a écrit dans le message de news:4015749f$0$6970$
Bonsoir à tous,
Je viens vers vous pour un coup de pouce pour terminer 1 macro. J'ai 1 feuille nommée "Données" qui a sur la colonne A1:Ax les n° de comptes qui
représente le noms des onglets de mon classeur "bilan.xls", en colonne B1:Bx, les n° de comptes que j'ai fait l'extraction de la balance comptable
et en colonne c le solde des n° de comptes de l'extraction. Ce qui me bloque
actuellement, c que je n' arrive pas à faire ceci :
si N° de Compte colA = N° de Cpte ColB => activer l' onglet correspondant et en C14 ( par ex: ) coller le
montant qui est le valeur de la col C, et ainsi de suite.
si colA <> colb => call macro insérerFeuille ( ce macro je l'ai fait ) et
ainsi de suite.
J'ai essayé avec l'enregistreur de macro, mais çà ne marche pas.
Merci d'avance pr votre aide.
Seng
"Seng Hua" <senghua@club-internet.fr> a écrit dans le message de
news:40196182$0$6976$7a628cd7@news.club-internet.fr...
Bonsoir à tous,
Me re- voilà pour, à nouveau, adresser à vos connaissances. JF Aubert m'a
donné 1 astuce sur l' objet ci-dessus. J'ai testé, ça fonctionne au niveau
d'ajout des onglets, mais ne met pas la valeur.
voici le code :
Sub yy()
Dim c
sheets("Données").select
For each c in Range("A1:" & Range("A65536").End (xlup).address)
If c.Value=c.Offset(0,1).Value then
sheets(c.Value).Range("C14")=c.Offset(0,2).Value
Else
Call macro_insérerFeuille
Sheets("Données").select
End if
next
End Sub
Est ce qq'1 pourrez m'aider ?
D'avance merci
Seng
"Seng Hua" <senghua@club-internet.fr> a écrit dans le message de
news:4016bcd2$0$6982$7a628cd7@news.club-internet.fr...
bonsoir à tous,
Un grand remerciement à Jean François pou rla réponse, je vais testé
demain.
Encore merci
Seng
"Seng Hua" <senghua@club-internet.fr> a écrit dans le message de
news:4015749f$0$6970$7a628cd7@news.club-internet.fr...
Bonsoir à tous,
Je viens vers vous pour un coup de pouce pour terminer 1 macro. J'ai 1
feuille nommée "Données" qui a sur la colonne A1:Ax les n° de comptes
qui
représente le noms des onglets de mon classeur "bilan.xls", en colonne
B1:Bx, les n° de comptes que j'ai fait l'extraction de la balance
comptable
et en colonne c le solde des n° de comptes de l'extraction. Ce qui me
bloque
actuellement, c que je n' arrive pas à faire ceci :
si N° de Compte colA = N° de Cpte ColB => activer l' onglet
correspondant et en C14 ( par ex: ) coller le
montant qui est le valeur de la col C, et ainsi de suite.
si colA <> colb => call macro insérerFeuille ( ce macro je l'ai fait )
et
ainsi de suite.
J'ai essayé avec l'enregistreur de macro, mais çà ne marche pas.
"Seng Hua" a écrit dans le message de news:40196182$0$6976$
Bonsoir à tous,
Me re- voilà pour, à nouveau, adresser à vos connaissances. JF Aubert m'a donné 1 astuce sur l' objet ci-dessus. J'ai testé, ça fonctionne au niveau d'ajout des onglets, mais ne met pas la valeur.
voici le code :
Sub yy() Dim c sheets("Données").select For each c in Range("A1:" & Range("A65536").End (xlup).address) If c.Value=c.Offset(0,1).Value then sheets(c.Value).Range("C14")=c.Offset(0,2).Value Else Call macro_insérerFeuille Sheets("Données").select End if next End Sub
Est ce qq'1 pourrez m'aider ? D'avance merci
Seng "Seng Hua" a écrit dans le message de news:4016bcd2$0$6982$
bonsoir à tous, Un grand remerciement à Jean François pou rla réponse, je vais testé demain.
Encore merci
Seng
"Seng Hua" a écrit dans le message de news:4015749f$0$6970$
Bonsoir à tous,
Je viens vers vous pour un coup de pouce pour terminer 1 macro. J'ai 1 feuille nommée "Données" qui a sur la colonne A1:Ax les n° de comptes qui
représente le noms des onglets de mon classeur "bilan.xls", en colonne B1:Bx, les n° de comptes que j'ai fait l'extraction de la balance comptable
et en colonne c le solde des n° de comptes de l'extraction. Ce qui me bloque
actuellement, c que je n' arrive pas à faire ceci :
si N° de Compte colA = N° de Cpte ColB => activer l' onglet correspondant et en C14 ( par ex: ) coller le
montant qui est le valeur de la col C, et ainsi de suite.
si colA <> colb => call macro insérerFeuille ( ce macro je l'ai fait ) et
ainsi de suite.
J'ai essayé avec l'enregistreur de macro, mais çà ne marche pas.
