Afficher la valeur d'à côté avec 2 conditions

Le 15/05/2016 à 11:16

Re,

Tous les DIM sont les déclarations de variable

par exemple DEVISE représente une formule de calcul qui substitue le "." en ","

Si tu recolles des nouvelles données dans la feuille 2, ern revenant dans la feuille 1 le bouton pour la MAJ passe au rouge avec une ligne d'indication.

A l'appui du bouton, le transfert se produit dans la feuil2 et en revenant dans la feuil1 le bouton change de couleur et la colonne A se trie de A à Z, pour un bon fonctionnement des deux listes déroulantes pour les pays( sans doublons) et les villes qui correspondent au pays

Suivant la devise du pays selectionné, celle ci se met en place dans la ligne de résultat et transforme le montant par une recherche dans la feuille 2

J'espère être clair dans mes explications

Le 15/05/2016 à 11:40

Je vais aller lire tout

J'ai vu le MAJ avec la petite phrase.

Par contre quand je clique dessus ça me met erreur VBA 400.

Et cette ligne est en jaune

Private Sub Worksheet_Activate()

Option Explicit
Dim n As Long
Private Sub CommandButton1_Click()
Dim DEVISE As String
Dim F2 As Range
Dim i As Integer
Dim DernLigne As Long
Application.ScreenUpdating = False
Sheets("Feuil2").Activate
    If Sheets("Feuil2").Range("C2") = "" Then
        MsgBox "La mise à jour est déjà faite"
        Sheets("Feuil1").Activate
        Exit Sub
        Application.ScreenUpdating = True
        Else
        DernLigne = Sheets("feuil2").Range("a" & Rows.Count).End(xlUp).Row
        Set F2 = Sheets("Feuil2").Range("A1:A" & DernLigne)
            For i = 1 To F2.Rows.Count
                   F2(i, 1).Value = F2(i, 3).Value
                   DEVISE = "=SUBSTITUTE(RC[0],""."","","")"
                   F2(i, 2).Value = F2(i, 5).Value
            Next i
            F2.Columns("A:B").EntireColumn.AutoFit
            F2.Range("C:E").Clear
        Set F2 = Nothing
    End If
Sheets("Feuil1").Activate
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Activate()
If Sheets("Feuil2").Range("C2") <> "" Then
Sheets("Feuil1").CommandButton1.BackColor = RGB(255, 0, 0)
Else
CommandButton1.BackColor = RGB(174, 170, 170)
End If
ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau5").Sort.SortFields. _
        Add Key:=Range("Tableau5[[#All],[Pays]]"), SortOn:=xlSortOnValues, Order _
        :=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau5").Sort
        .Header = xlYes
        .MatchCase = False
        .Apply
    End With
    Range("E1").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$F$2" Then
     Target.Offset(0, 1) = Empty
     n = Application.CountIf([Pays], Target)
     Select Case n
       Case 1
         Target.Offset(0, 1) = [Pays].Find(Target, LookAt:=xlWhole).Offset(0, 1)
       Case Is > 1
         Target.Offset(0, 1).Select
         SendKeys "%{down}"
      End Select
  End If
End Sub

Le 15/05/2016 à 12:38

C'est un peu du chinois ton lien pour moi x)

Est-ce qu'en Feuil2 quand je clique sur Bouton1 il est possible de supprimer les doublons, j'ai remarqué qu'en faisant un copier/coller des données d'un site, des doublons existent...

J'ai ajouté volontairement des doublons pour la premiere devise

Merci d'avance

16test-2recherches-val-d-a-cote.xlsm (37.81 Ko)

Le 15/05/2016 à 13:33

Re,

Il y a peut-être un problème dans les codes entre EXCEL en PC et EXCEL en MAC De mon côté aucun soucis

Ensuite, tu demandes d'enlever les doublons que tu as mis volontairement sur une liste qui est déjà modifié

Avant de trop compliquer les choses, dis-moi déjà si la dernière version envoyée fonctionne

et comme j'ai dis hier soir, sur un fichier bien ancré, on travaille,et on arrive.

Si à tout bout de champ, le dossier doit-être modifié par un oubli du départ, eh bien C'est désespèrant

Le 15/05/2016 à 14:04

J'ai des messages à l'ouverture à cause de