Astuces Excel
  1. Astuces Excel
  3. Mise en forme conditionnelle des cellules entre les feuilles et sortie vers une cellule séparée
Intereting Posts
Connectez deux files excel dans une connection à plusieurs VBA Excel 2013 Manipulation de la tête et de la ligne Recherche efficace d'indice de gamme excel Ajoutez des valeurs pour chaque valeur de cellule suivies et ajoutez 0 pour les valeurs de date manquantes dans Excel note datatables d'export pour excel lentement Vérifiez la cellule = 0 si elle affiche la boîte de message et annulez la sauvegarde Quel est le but du préfixe + dans Excel, des formules intracellulaires? Simple VBA Show / Hide Excel Commentaires problèmes #REF! Erreur sur les tabs commençant par Lettre C Suivi par des numbers puis des lettres à nouveau Copiez un onglet d'une feuille vers un autre classur Complément Excel VSTO – problème WPF XAML Style Transfert de données d'un classur vers un autre avec une condition spécifique Excel VBA Workdays Excel vba utilisant ADO pour get le résultat défini sur listobject "Flatten" plusieurs lignes contenant des données différentes mais avec une reference commune dans une seule ligne

Mise en forme conditionnelle des cellules entre les feuilles et sortie vers une cellule séparée

 
Sub MatchLiquor() Dim lastRowOne As Long Dim lastRowTwo As Long Dim sheetNameOne As Ssortingng Dim sheetNameTwo As Ssortingng sheetNameOne = "Recipies" 'Recipies Sheet sheetNameTwo = "Liquor Breakdowns" 'Liquor Breakdowns lastRowOne = Sheets(sheetNameOne).Range("B" & Rows.Count).End(xlUp).Row lastRowTwo = Sheets(sheetNameTwo).Range("A" & Rows.Count).End(xlUp).Row For lRow = 2 To lastRowOne 'Loop through all rows For lRowTwo = 2 To lastRowTwo 'Loop through all rows If Sheets(sheetNameOne).Cells(lRow, "B") = Sheets(sheetNameTwo).Cells(lRowTwo, "A") Then Sheets(sheetNameOne).Cells(lRow, "C") * Sheets(sheetNameOne).Cells(lRowTwo, "E") Then End If Next lRowTwo Next lRow End Sub

En sudo, ce que je tente d'accomplir est tel: searchz toutes les lignes de la feuilleA pour "nom" et comparez à la fiche "nom". En cas de résultat, multipliez la valeur différente en feuilleA par une valeur différente dans la feuille B; des valeurs de sortie dans différentes cellules dans la feuille A (exemple E).

Je n'ai pas encore compris comment sortir, ou même si cela fonctionnera. Des idées?

Il y a eu une certaine confusion quant à savoir quelles feuilles de travail ont été utilisées là où et aucune cible pour le produit sur une correspondance a été fournie, mais cela devrait éclaircir vos loops. 

 Sub MatchLiquor() Dim lastRowOne As Long, lastRowTwo As Long, prodct As Double Dim sheetNameOne As Ssortingng, sheetNameTwo As Ssortingng sheetNameOne = "Recipies" 'Recipies Sheet sheetNameTwo = "Liquor Breakdowns" 'Liquor Breakdowns With Sheets(sheetNameOne) lastRowOne = .Range("B" & Rows.Count).End(xlUp).Row lastRowTwo = Sheets(sheetNameTwo).Range("A" & Rows.Count).End(xlUp).Row For lRow = 2 To lastRowOne 'Loop through all rows on Recipies Sheet For lRowTwo = 2 To lastRowTwo 'Loop through all rows on Liquor Breakdowns If .Cells(lRow, "B") = Sheets(sheetNameTwo).Cells(lRowTwo, "A") Then prodct = .Cells(lRow, "C").Value * Sheets(sheetNameTwo).Cells(lRowTwo, "E").Value 'do something with prodct .cells(lRow, "E") = prodct Exit For 'found match and computed product; no need to continue this lRowTwo End If Next lRowTwo Next lRow End With End Sub

Si une correspondance a été trouvée et un produit calculé (et mis quelque part), il n'est pas nécessaire de continuer à parcourir la boucle nestede interne avec lRowTwo . Just Exit For qui vous ramènera à la boucle extérieure et à la prochaine lRow .

Utilisation des Sheets(sheetNameOne) dans une version de … Terminer avec diminue les references de la feuille de travail principale à la moitié.