cells (row, column)

M

mécano41

XLDnaute Accro

• 22 Octobre 2007

• #2

Re : cells (row, column)

Bonjour,

Normalement cela aurait dû fonctionner. Il faudrait que j'essaie.

Les modifications d'emplacement dans la feuille ne suivent pas dans la macro. Si tu veux pouvoir changer les deux cellules de place, il faut les nommer dans la feuille de calculs :

ex. : ValModif pour A1 et ValAtteindre pour B1

et mettre dans la formule de la macro :

Range("ValAtteindre") GoalSeek Goal:=0, ChangingCell:=Range("ValModif")

Je n'ai pas fait l'essai, mais si tu ajoutes/supprimes des lignes et/ou des colonnes la macro doit continuer à fonctionner

Cordialement

 

Dernière édition: 22 Octobre 2007

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 22 Octobre 2007

• #3

Re : cells (row, column)

J'ai essayé cela (en fait, il faut juste indiquer dans quelle feuille tu travailles) :

Worksheets("Feuil1").Select
Cells(2, 1).GoalSeek Goal:=0, ChangingCell:=Cells(1, 1)

cela fonctionne mais si tu veux que cela fonctionne ailleurs, il faut changer les valeurs désignant les cellules dans Cells(ligne,colonne)...

Cordialement

 

Vote positif 0 Vote négatif

É

Épaf

XLDnaute Occasionnel

• 22 Octobre 2007

• #4

Re : cells (row, column)

Comme nous n'avons pas ton code en entier, je ne peux que supposer... Le problème peut survenir si en A1 tu fais ChangingCell:=Range(cells(ligne,colonne-1)) qui donne 0 comme N° de colonne... A tout hasard...

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 22 Octobre 2007

• #5

Re : cells (row, column)

Je n'avais pas tout saisi de ce que tu voulais faire, je pense que l'exemple ci-joint conviendra. Il faut remettre A1 à 0 avant de lancer la macro "Principal" pour voir que cela fonctionne.

Il faut tenir compte de ce qu'a dis Epaf.

Cordialement

 

Pièces jointes

• MacroValCible11.xls

  24 KB · Affichages: 122

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 22 Octobre 2007

• #6

Re : cells (row, column)

Un exemple plus complet où tu peux chosir d'appliquer "valeur cible" à l'un des trois cas.

Cordialement

 

Pièces jointes

• MacroValCible2.xls

  32.5 KB · Affichages: 119

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 22 Octobre 2007

• #7

Re : cells (row, column)

Bonjour à tous, bonjour Mécano41 (Tiens donc, vous ici !), bonjour Epaf

Merci pour vos propositions. Malheureusement, malgré vos conseils, je n'arrive pas à faire exactement ce que je voudrais.

Je m'explique : Il faudrait que la macro puisse être utilisée n'importe où (sauf dans la colonne A, suite à la remarque de Epaf). Je met en pièce jointe un petit exemple. Dans celui-ci, la macro marche uniquement en C2, D2. En pratique j'aimerai bien qu'en l'exécutant en D4, elle modifie correctement C4. Idem en D6, avec la réponse en C6, etc sans qu'on est à repérer ces positions directement dans la macro.

Il me semble qu'il y avait une astuce pour qu'une macro travaille dans la fenêtre active, en utilisant des cellules repérées par rapport à cette cellule active, et non pas toujours uniquement à un endroit particulier, à l'époque où c'était en VBA franglais... mais je ne la retrouve plus. Dommage.

J'ai essayé en nommant les colonnes C et D, mais cela ne fonctionne pas.

Bonsoir et à plus, je l'espère.

 

Pièces jointes

• Essaimacrovalcib2.xls

  42 KB · Affichages: 96
• Essaimacrovalcib2.xls

  42 KB · Affichages: 106
• Essaimacrovalcib2.xls

  42 KB · Affichages: 107

Vote positif 0 Vote négatif

ninbihan

XLDnaute Impliqué

• 22 Octobre 2007

• #8

Re : cells (row, column)

Bonsoir à tous,

Un essai avec une boucle


Bonne nuit,

Ninbihan

 

Pièces jointes

• Essaimacrovalcib2.xls

  39 KB · Affichages: 130
• Essaimacrovalcib2.xls

  39 KB · Affichages: 134
• Essaimacrovalcib2.xls

  39 KB · Affichages: 127

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 23 Octobre 2007

• #9

Re : cells (row, column)

Bonjour à tous

Pas mal, Ninbihan, pas mal du tout.

Mais malheureusement, cela ne résoud le "problème" que dans une colonne, et pas n'importe où, comme espéré.

Comme je dois utiliser cette macro dans un autre programme plus complexe, et pour ma, notre "culture" dans ce domaine, quelqu'un aurait-il une autre solution pour lancer une macro à partir d'une donnée dans n'importe quelle cellule active ?

Bonne journée à tous et Merci.

PS =nin bihan.... nin = enfant en castillan et bihan = petit en breton ?

 

Vote positif 0 Vote négatif

É

Épaf

XLDnaute Occasionnel

• 23 Octobre 2007

• #10

Re : cells (row, column)

Une question : Tu dis

J'essaye de généraliser cette minuscule macro pour pouvoir l'utiliser dans n'importe quelle cellule

Cliquez pour agrandir...

Veux-tu que cette macro soit lancée pour chaque modification manuelle de cellule ou fais-tu cette recherche du zéro par macro pour l'utiliser par macro exclusivement ?
@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Octobre 2007

• #11

Re : cells (row, column)

bonjour CISCO

Salut ninbihan, mecano41, Epaf

un essai

j'ai modifié la presentation des equations

on peut selectionner n'importe quelle cellule sauf en colone A et lancer la macro test
l'expression de la colonne A sera evaluée dans la cellule a gauche de la cellule selectionnée

 

Pièces jointes

• Essaimacrovalcib2.xls

  41.5 KB · Affichages: 144
• Essaimacrovalcib2.xls

  41.5 KB · Affichages: 144
• Essaimacrovalcib2.xls

  41.5 KB · Affichages: 139

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 28 Octobre 2007

• #12

Re : cells (row, column)

Bonjour à tous, bonjour Pierrejean.

Merci Pierrejean. Ta petite macro fait vraiment ce qu'il me faut.

Malheureusement, elle ne fonctionne pas chez moi. Mon "ordi" ne reconnait pas la fonction Replace... Je vais fouiller pour voir l'origine de ce bug...

Bonsoir.

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 29 Octobre 2007

• #13

Re : cells (row, column)

Bonsoir tous le monde,

Si la fonction Replace ne fonctionne pas, tu peux utiliser la fonction Substitute : (Cf l'aide d'Excel )

SUBSTITUE(texte;ancien_texte;nouveau_texte;no_position)

Tu ne serais pas en Excel 97 ?, Replace n'est pas reconnu par cette version d'Excel.

Bonne nuit

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Octobre 2007

• #14

Re : cells (row, column)

Re

Salut bqtr

@ CISCO

le même avec une fonction replace tricotée main (devenue Remplace)

 

Pièces jointes

• Essaimacrovalcib2.xls

  45.5 KB · Affichages: 90
• Essaimacrovalcib2.xls

  45.5 KB · Affichages: 106
• Essaimacrovalcib2.xls

  45.5 KB · Affichages: 102

Vote positif 0 Vote négatif

É

Épaf

XLDnaute Occasionnel

• 30 Octobre 2007

• #15

Re : cells (row, column)

😱Je n'ai pas tout suivi mais, si tu veux remplacer du texte dans une formule à la demande, selon la cellule sélectionnée tu peux placer ton code dans Worksheet_SelectionChange (?)
Autre pb que je n'ai pas compris : Le remplacement est-il toujours le même ?
Si tu précises ce que tu veux remplacer et par quoi tu veux le remplacer, tu peux utiliser Target pour définir la colonne ou la cellule. Ex :
Le code suivant appliquee en A1 remplace C1 en B1 dans la formule

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Target.Column = 2 Then Exit Sub 'si ce n'est pas la colonne 2, on sort
Dim NewMot, OldMot, Phrase$
    OldMot = Target.Offset(0, 2).Address(False, False) 'à adapter
    NewMot = Target.Offset(0, 1).Address(False, False) 'à adapter
    Target.Formula = Remplacer(Target.Formula, OldMot, NewMot)
End Sub

Function Remplacer(Phrase, OldMot, NewMot)
Dim laPhrase
    laPhrase = Phrase
    Do While InStr(laPhrase, OldMot) <> 0
        laPhrase = Left(laPhrase, InStr(1, laPhrase, OldMot) - 1) & _
        NewMot & Right(laPhrase, Len(laPhrase) - (InStr(laPhrase, OldMot) + Len(OldMot) - 1))
        Debug.Print laPhrase
    Loop
    Remplacer = laPhrase
End Function

Si tu veux le faire sur toute une colonne, tu places l'appel dans une boucle.
Si tu veux réaliser le remplacement systématique, tu crées une boucle sur la colonne et, dans l'appel à la fonction, remplaces Target par l'adresse de la formule.

Code:

Sub ChangerDadresse()
Dim NewMot, OldMot, Phrase$
Dim Plage as range, cell as range
    set Plage = Range("B1:B" & derniereLigne)
    For each Cell in Plage
        OldMot = Cell.Offset(0, 2).Address(False, False) 'à adapter
        NewMot = Cell.Offset(0, 1).Address(False, False) 'à adapter
        Cell.Formula = Remplacer(Cell.Formula, OldMot, NewMot)
    Next

ou encore dans une boucle

Code:

    for NoLigne = 1 to derniereLigne

etc.
A tout hasard... puisque je n'ai pas vraiment compris 😱
@+

 

Dernière édition: 30 Octobre 2007

Vote positif 0 Vote négatif