formul
#1
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 04-11-2012 02h00
bonjour le forum,

je voudrai que la valeur contenue en cellule a1 s'ecrive en cellule c1 sans que la cellule  c1 soit oblige de contenir une formul ,et que le contenue de la cellule c1 reste utilisable comme une valeur que j'aurai moi même ecrit  ...un peu d'aide s.v.p  
Hors Ligne
Rapport   Haut 

Re: formul
#2
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 04-11-2012 11h48
Bonjour mahelnawe, bonjour le forum,

Tu peux essayer avec une macro évènementielle qui se déclenche à chaque modification de la cellule A1, par exemple avec ce code à placer dans la feuille de ton choix:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
    ActiveSheet.Range("C1") = Target.Value
End If
End Sub
 

Bonne journée,

mth
Hors Ligne
Rapport   Haut 

Re: formul
#3
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 04-11-2012 18h27
bonjour le Forum,MTH,

c niquel grace à toi tout mes formul s'active ,ce petit bout de code pourrai t'il être modifier ?
(dans ac3 une formul indique un n° de ligne,cette formul s'etir jusque ac103) pour que si une cellule de ac3 sur ac103 contient un n° ligne les cellule correspondante se transfer automatiquement 
ex :ac3 contient la valeur  3 donc les cellules m3:aa3 se copie sur les cellules ad3:ar3

par contre si on peu eviter les vide  entre ligne moi avec mes formul ne ni parviens pas

vraiment grand merci pour ton aide ..c cool ca!
Hors Ligne
Rapport   Haut 

Re: formule
#4
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 04-11-2012 23h04
Bonsoir à tous, bonsoir mahelnawe,

Je ne comprends pas bien ce que tu souhaites comme aménagement, ni quel évènement est susceptible de déclencher le code, par exemple toutes les cellules de la plage AC3:AC103 sont-elles censées contenir un chiffre? ou pas ? quelle est cette formule en AC3 copiée vers le bas?

Au cas où un morceau de code qui peut éventuellement t'aider
Sub Macro1()
Dim PlageA As Range, PlageB As Range

Set PlageA = Range("M3:AA103")
Set PlageB = Range("AD3:AR103")

PlageB = PlageA.Value

On Error Resume Next
PlageB.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

End Sub
 

Il définit les plages de départ (plageA) et d'arrivée (plageB) copie les valeurs de A vers B puis élimine les vides de la plageB (suppression vers le haut).

Tu aménageras à ton idée (ceci dit n'hésite pas à formuler tes questions de la façon la plus claire possible, voire à déposer en complément un petit extrait de fichier illustrant ton problème)

Bonne soirée à tous,

mth
Hors Ligne
Rapport   Haut 

Re: formule
#5
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 05-11-2012 02h52
bonsoir le Forum,Mth,

pour le modul c bien ça ,simplement pour que la copie ce fasse il faut que ac3 ou une autre cellule de la colone AC est reçus une valeur de la par la formul suivante :
SI($AE$2="gy";SI($AH$2=$C3;SI($AK$2=$F3;SI($AN$2=$G3;A3;"");"");"");"")&SI($AE$2="gz";SI($AH$2=$C3;SI($AK$2=$F3;SI($AN$2=$G3;A3;"");"");"");"") si t'elle est le cas alors la copie s'effectue , par exemple : ac3 contient 1 donc les cellule m3:aa3 se copie sur les cellules ad3:ar3 plus loins la cellule ac10 contient 10 donc les cellule m10:aa10 ce copie en dessous des cellule ad3:ar3 donc sur ad4:ar4 .
Grand merci pour ton aide ...
Hors Ligne
Rapport   Haut 

Re: formule
#6
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 06-11-2012 23h00
Bonsoir mahelnawe, bonsoir à tous,

Je ne suis pas certaine d'avoir bien compris, mais au cas où essaie avec ce code dans un module standard, que tu pourras adapter à ton fichier réel:

Option Explicit

Sub Macro2()
Dim c As Range, PlageA As Range, PlageB As Range

With Application
    'Bloque le rafraichissement écran
    .ScreenUpdating = False
   
    With Sheets("Feuil1")
        'Efface le contenu de la plage AC3:AR103
        .Range("AD3:AR103").ClearContents
        'Passe à l'instruction suivante s'il n'y a pas de cellules correpondantes
        On Error Resume Next
        'Boucle sur chaque cellule de la plage AC3:AC103 contenant une formule numérique
        For Each c In .Range("AC3:AC103").SpecialCells(xlCellTypeFormulas, 1)
            Set PlageA = .Range(c.Offset(0, -16), c.Offset(0, -2))
            Set PlageB = .Range(c.Offset(0, 1), c.Offset(0, 15))
            PlageA.Copy
            PlageB.PasteSpecial Paste:=xlPasteValues
        Next c
        'Retire les vides (vers le haut) de la zone copiée
        .Range("AD3:AR103").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
        On Error GoTo 0
    End With
    'Vide le presse papier
    .CutCopyMode = False
    'Rétablit l'affichage écran
    .ScreenUpdating = True
End With
End Sub
 

Bonne soirée,

mth
Hors Ligne
Rapport   Haut 

Re: formule
#7
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 07-11-2012 11h48
Bonjour le Forum,Mth,

En realité les cellules ac3:ac103 reçoive une valeur .chaque cellule contenant cette formule . :" SI($AE$2="gy";SI($AH$2=$C3;SI($AK$2=$F3;SI($AN$2=$G3;A3;"");"");"");"")&SI($AE$2="gz";SI($AH$2=$C3;SI($AK$2=$F3;SI($AN$2=$G3;A3;"");"");"");"") .cette valeur s'affiche dans la cellule quand les conddition cette formul son respecter .le but c que lorsqu'une des cellules affiche une valeur la copie s'execute ex:la cellules ac3 affiche 3 vue que les conddition son respecter donc la copie s'effectue .

Grand merci pour ton aide et ta patience
Hors Ligne
Rapport   Haut 

Re: formule
#8
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 07-11-2012 12h53
Bonjour mahelnawe, bonjour à tous,

Peux-tu essayer en modifiant ta formule, afin qu'elle fournisse une donnée numérique au lieu d'une donnée texte quand la condition est remplie:


=SI(OU($AE$2="gy";$AE$2="gz");SI($AH$2=$C3;SI($AK$2=$F3;SI($AN$2=$G3;A3;"");"");"");"")

Bien à toi,

mth

Hors Ligne
Rapport   Haut 

Re: formule
#9
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 07-11-2012 14h29
bonjour le Forum;Mth,
Vraiment grand merci pour ton aide precieuse et la corréction de formul ,je n'y avait pas penssé .... maintenant tout fonctionent ..je teste mon fichier et reviens ...Aussi peu t'on ajouter la copie de format à la copie ? epuis pour rendre l'execution du code automatique ,que faudrai t'il modifier ?
merci encors ...

Edité par mahelnawe le 08/11/2012 01:29:48
Hors Ligne
Rapport   Haut 

Re: formule
#10
Semi pro XLPages

Inscription: 30/01/2012
De Crévecoeur

Messages: 108

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 12-11-2012 11h59
Bonjour le Forum,MTH
pour la copie des données pas de soucis ,en revanche pour la lecture des données il est necessaire que la copie de format de chaque cellules copiers ce fasse en même temps,j'ai essayer d'utilisé xlformats sans succée .. ou faut t'il intervenir dans le code et comment faut t'il le modifier pour que le format de chaque cellules ce copie ? merci pour votre aide précieuse
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes