XL 2019 Transferer (modifier) des données des lignes des cellules à différentes colonnes

Hasco

XLDnaute Barbatruc

Repose en paix

• 22 Juin 2022

• #2

Bonjour,

Sélectionnez vos données (colonne A)
Faites CTRL+H pour Rechercher/Remplacer puis remplissez la fenêtre comme ci-dessous :

Puis cliquez sur "Remplacer tout".

cordialement

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 22 Juin 2022

• #3

Bonjour bauerjackob, Hasco,

bauerjackob à dit:

J"aimerais modifier (sans vba si possible) les "Pétits outillages" colonne A, qui se trouvent dans "Usine" colonne G par "Bureau".

Cliquez pour agrandir...

si tu recherches "Pétits outillages" au lieu de "Petits outillages" tu ne risques pas de trouver !

si tu as fait la faute dans ton énoncé, tu risques de la faire dans la boîte de dialogue "Rechercher et remplacer" !

c'est pas « J"aimerais » mais « J'aimerais" ➯ essaye aussi d'éviter de taper des guillemets au lieu des apostrophes ! ​

soan

 

Vote positif 0 Vote négatif

B

bauerjackob

XLDnaute Junior

• 22 Juin 2022

• #4

Bonjour Messieurs, peut être que j'ai mal posé la question. Je reformule la question . Dans le pj la feuill BD est ma base et je voudrais avoir comme résultat dans "BDmodifiéé" que j ai changé comme "BD Résultat escopmté". En résumé ,c'est la colonne F que je souhaite modifié en tenant compte de la colonne A . En bref changer "USINE' par " BUREAU'.

 

Pièces jointes

• BD2022.xlsm

  16 KB · Affichages: 3

Dernière édition: 22 Juin 2022

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 22 Juin 2022

• #5

Bonsoir bauerjackob,

j'ai bien compris maint'nant ta demande, mais sans VBA, c'est vraiment pas évident ! alors ma solution est avec code VBA ; ce sera mieux que rien ! sur la feuille "BDD", fais Ctrl e ➯ travail effectué ! ​

---

code VBA (14 lignes) :

VB:

Option Explicit

Sub Essai()
  If ActiveSheet.Name <> "BDD" Then Exit Sub
  Const nature$ = "Petits outillages" '<--- ici : la Nature à chercher
  Const local1$ = "USINE": Const local2$ = "BUREAU" 'USINE ==> BUREAU
  Dim dlg&: dlg = Cells(Rows.Count, 1).End(3).Row: If dlg = 1 Then Exit Sub
  Dim lig&: Application.ScreenUpdating = 0
  For lig = 1 To dlg
    If Cells(lig, 1).Value = nature Then
      If Cells(lig, 6).Value = local1 Then Cells(lig, 6).Value = local2
    End If
  Next lig
End Sub

soan

 

Pièces jointes

• BD2022.xlsm

  23.4 KB · Affichages: 1

Vote positif 0 Vote négatif

Solution

S

soan

XLDnaute Barbatruc

Inactif

• 22 Juin 2022

• #6

attention : comment veux-tu que ça trouve la Nature si tu fais des fautes ? tu dois absolument être plus rigoureux quand tu saisis au clavier ! exemple : de A72 à A74 : "Materiel et outillage" au lieu de "Matériel et outillage" ; alors si tu cherches la Nature "Matériel et outillage" ça ne va pas la trouver ! mais si tu cherches la Nature "Materiel et outillage" ça va la trouver ! reste à savoir si lors de ta prochaine recherche tu vas te rappeler qu'il faut faire une faute d'orthographe lors de la saisie de la Nature pour pouvoir la trouver ! ​

soan

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 23 Juin 2022

• #7

Re,

Euh.... ben vous sélectionnez F2:F22 (pour les lignes 'Petits outillages') et vous faites comme dit en post#2 avec :
Rechercher = USINE
Remplacer = BUREAU
click sur "Remplacer tout"

 

Vote positif 0 Vote négatif

B

bauerjackob

XLDnaute Junior

• 23 Juin 2022

• #8

Merci oui je fais attention aux saisies

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 23 Juin 2022

• #9

@bauerjackob

je crois que tu as zappé mon post #5 !

télécharge le fichier, et essaye-le !

soan

 

Vote positif 1 Vote négatif

B

bauerjackob

XLDnaute Junior

• 23 Juin 2022

• #10

soan à dit:

@bauerjackob

je crois que tu as zappé mon post #5 !

télécharge le fichier, et essaye-le !

soan

Cliquez pour agrandir...

Merci pour tes remarques et tes solutions. C'est bien appliqué.

 

Vote positif 0 Vote négatif

B

bauerjackob

XLDnaute Junior

• 16 Novembre 2022

• #11

soan à dit:

Bonjour bauerjackob, Hasco,

si tu recherches "Pétits outillages" au lieu de "Petits outillages" tu ne risques pas de trouver !

si tu as fait la faute dans ton énoncé, tu risques de la faire dans la boîte de dialogue "Rechercher et remplacer" !

c'est pas « J"aimerais » mais « J'aimerais" ➯ essaye aussi d'éviter de taper des guillemets au lieu des apostrophes ! ​

soan

Cliquez pour agrandir...

BonjourSoan
rien a voir avec le sujet
Je m'adresse tout particulièrement a vous pour me donner une solution a mon problème
J'ai converti en lettre une Total en chiffre dans une facture en utilisant

with Sheets("Feuill1")
WordDoc.Tables(nb + 4).cell(1, 1).Range.Text = .Range("A1").Value & " " & Euro & _
IIf(.Range("B1").Value > 0, .Range("B1").Value, "")
End With
End Sub

Il me donne un resultat en lettre en tenant compte du sigle
ex Deux mille Dollar $
comment enlever ce $
nb: j'ai changé le monnaie de windows en $

 

Dernière édition: 16 Novembre 2022

Vote positif 0 Vote négatif