Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 16/01/2012, 09h29   #1
Invité de passage
 
Inscription : février 2008
Messages : 14
Détails du profil
Informations forums :
Inscription : février 2008
Messages : 14
Points : 1
Points : 1
Par défaut multiplication de colonne

Bonjour,

je suis un peu en galère sur une broutille mais je ne trouve pas la réponse donc je fais appel à vous !

Je souhaite créer une macro qui multiplie une colonne A par une cellule B1 pour me l'écrire en colonne C

Le truc qui me complique un peu la tache c'est que si je modifie une cellule A , je veux que la cellule de la colonne C se mette à jour.
voici le code que j'ai fait mais il me sort une erreur....

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub compteur()
Dim c As Range
Dim l As Long
l = 2
 
For Each c In Range("C2:C10")
 
c.FormulaR1C1 = "=Range("A" & l).Value * Range("B1").Value"
l = l + 1
Next c
 
End Sub
master1551 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 16/01/2012, 09h41   #2
Membre Expert
 
Avatar de MarcelG
 
Homme Marcel GALANO
Développeur informatique
Inscription : juillet 2009
Messages : 644
Détails du profil
Informations personnelles :
Nom : Homme Marcel GALANO
Localisation : France, Maine et Loire (Pays de la Loire)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Finance

Informations forums :
Inscription : juillet 2009
Messages : 644
Points : 1 255
Points : 1 255
Par défaut évènement change

Bonjour à toi, Bonjour le Forum,

Le plus efficace serait d'affecter cette modification à l'évènement Change de ta feuille de calcul.

A intégrer (et adapter éventuellement) au code de la feuille concernée

Code :
1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
    With Target
        .Offset(0, 2).Value = .Value * .Offset(0, 1).Value
    End With
End If
 
End Sub
__________________

Bien Cordialement.

Marcel

Pas de messagerie personnelle pour vos questions, s'il vous plaît. La réponse peut servir aux autres membres. Merci.


MarcelG est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 16/01/2012, 09h51   #3
Invité de passage
 
Inscription : février 2008
Messages : 14
Détails du profil
Informations forums :
Inscription : février 2008
Messages : 14
Points : 1
Points : 1
Je souhaiterai vraiment une macro car les colonnes , lignes et cellules du facteur sont jamais au meme endroit d'une feuille à l'autre dans mon projet....
master1551 est déconnecté   Envoyer un message privé Réponse avec citation 01
Vieux 16/01/2012, 10h10   #4
Membre Expert
 
Avatar de MarcelG
 
Homme Marcel GALANO
Développeur informatique
Inscription : juillet 2009
Messages : 644
Détails du profil
Informations personnelles :
Nom : Homme Marcel GALANO
Localisation : France, Maine et Loire (Pays de la Loire)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Finance

Informations forums :
Inscription : juillet 2009
Messages : 644
Points : 1 255
Points : 1 255
Par défaut évènement

Salut et merci quand même.

Citation:
Je souhaiterai vraiment une macro
Sauf erreur, je ne crois pas avoir fait de calligraphie.

Cela dit,
Tu peux intégrer une procédure évènementiielle pour un évènement Change au sein d'une feuille de calcul au niveau Workbook.
En l'occurence, ici, Un tutoriel à ce sujet évènements Workbook par Silkyroad

Bien entendu, si les variations d'adresse sont importantes donc leur gestion, alors mieux vaut affecter l'évènement à chaque feuille.

Combien de feuilles sont intégrées à ton classeur?
__________________

Bien Cordialement.

Marcel

Pas de messagerie personnelle pour vos questions, s'il vous plaît. La réponse peut servir aux autres membres. Merci.


MarcelG est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 16/01/2012, 10h18   #5
Invité de passage
 
Inscription : février 2008
Messages : 14
Détails du profil
Informations forums :
Inscription : février 2008
Messages : 14
Points : 1
Points : 1
le nombre n'est pas définit.

j'ai créé une macro qui me met en forme mon tableau, m'importe des infos a partir d'un texte.
parmis ces infos, il y a des variables qui me définissent le nombre de colonnes à utiliser.


Donc, je souhaite ajouter ce bout de macro à la suite d'autres lignes de commande.
Et c'est pour ça que j'aurai bien voulu que l'on me dise ou se trouve mon erreur dans mon code ou alors une solution qui fonctionne sur le meme principe.
master1551 est déconnecté   Envoyer un message privé Réponse avec citation 01
Vieux 16/01/2012, 10h26   #6
Membre Expert
 
Avatar de MarcelG
 
Homme Marcel GALANO
Développeur informatique
Inscription : juillet 2009
Messages : 644
Détails du profil
Informations personnelles :
Nom : Homme Marcel GALANO
Localisation : France, Maine et Loire (Pays de la Loire)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Finance

Informations forums :
Inscription : juillet 2009
Messages : 644
Points : 1 255
Points : 1 255
Tu as écrit dans ton premier post

Citation:
si je modifie une cellule A , je veux que la cellule de la colonne C se mette à jour
A mon sens, il n'y a qu'une procédure évènementielle qui puisse répondre à ton besoin. J'ajouterais que ton code gagnerait en clarté.

As-tu essayé d'adapter mon premier code à au moins une feuille?
__________________

Bien Cordialement.

Marcel

Pas de messagerie personnelle pour vos questions, s'il vous plaît. La réponse peut servir aux autres membres. Merci.


MarcelG est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 16h04.


 
 
 
 
Partenaires

Hébergement Web