VBA : Supprimer des lignes en fonction d’une valeur contenue dans un champ

Voici un problème qui revient de façon récurrente dans Excel, comment à l’aide d'une procédure VBA, peut on supprimer toutes les lignes d’une liste en fonction d’une valeur contenue dans un champ ?

- 1 – considérons ici la liste (A1 :E27), je souhaite supprimer toutes les lignes pour lesquels l’éditeur est égal à Microsoft

 
- 2 – Voici à quoi pourrait ressembler le code, à vous de l’adapter !

Sub DelEditeur()
Dim i As Integer
With ThisWorkbook.Sheets("Feuil1")
'Précisez le nom de votre feuille
            For i = .Range("C" & .Rows.Count).End(xlUp).Row To 2 Step -1
'je travaille sur la colonne c
'Rows.count permet de retourner le nombre de ligne de la plage range
                        If .Range("C" & i).Value = "Microsoft" Then
                                   .Rows(i).Delete
                        End If
            Next i
End With
End Sub

- 3 – Et voici le résultat après exécution de la procédure DelEditeur()…
 

- 4 – Une amélioration possible : passer par une variable pour demander à l’utilisateur quel éditeur il faut supprimer ?

Sub DelEditeur2()
Dim i As Integer
Dim Editeur As String
Editeur = InputBox("Veuillez entrer l'editeur à supprimer ?", "Welcome", "Microsoft")
'la valeur saisie est transmise à la variable Editeur
With ThisWorkbook.Sheets("Feuil1")
            For i = .Range("C" & .Rows.Count).End(xlUp).Row To 2 Step -1
                        If .Range("C" & i).Value = Editeur Then
Rows(i).Delete
  End If
  Next i
End With

End Sub

Partager |

Table de simulation à 2 entrées

Le prolongement de l’article précédent mais cette fois avec deux variables, une en ligne et une en colonne. Ici le calcul d’un salaire net en fonction de l’évolution d’un chiffre d’affaire et d’un salaire fixe, pour un % de commission donné.

- 1 – Ouvrez une nouvelle feuille de calcul dans Excel et entrez les valeurs suivantes dans les cellules A1 à F15. (La valeur en rouge est obtenue par la formule de calcul décrite ci après).

- 2 – Le salaire Total en A5 = B2 + (B1* B3).

- 3 – Sélectionnez les cellules A5 à F15 c'est-à-dire la plage contenant les valeurs d’entrées pour la simulation (Les CA et les fixes) la formule à simuler (A5) et les cellules résultantes.

- 4 – Passez la commande Données / Analyse de scénarios / Table de données…

- 5 – Sélectionner la cellule d’entrée en ligne (ici $B$2) et la cellule d’entrée en colonne (ici $B$1)

- 6 – Cliquez sur OK

- 7 – Si vous analyser la formule contenue dans une cellule résultante (par exemple D10), elle devrait se présenter sous la forme d’une formule matricielle :

{=TABLE(B2;B1)}

Partager |

Table de simulation à 1 entrée

Comment différentes valeurs peuvent affecter le résultat d’une formule de calcul ? Sans avoir à modifier ou recopier les formules ! En utilisant l’analyseur de scénarios d’Excel bien sûr !

- 1 – Ouvrez une nouvelle feuille de calcul dans Excel et entrez les valeurs suivantes dans les cellules A1 à E10. (Les valeurs en rouge sont obtenues par les formules de calcul décrites ci après).

- 2 – Le montant de la commission en D5 = C5 * D2/100 Le salaire Total en E5 = B5 + D5 et recopier vers le bas.

- 3 – Sélectionnez les cellules C5 à D10 c'est-à-dire la plage contenant les valeurs d’entrées pour la simulation (Taux %), la formule à simuler (D5) et les cellules résultantes.

4 – Passez la commande Données / Analyse de scénarios / Table de données… 

- 5 – Sélectionner la cellule d’entrée (ligne ou colonne selon l’orientation du tableau) ici $C$5 en colonne (Taux % étant une colonne)
- 6 – Cliquez sur OK

- 7 – Si vous analyser la formule contenue dans une cellule résultante, elle devrait se présenter sous la forme d’une formule matricielle :

{=TABLE(;C5)}

Partager |

Importer un tableau HTML

Des données numériques intéressantes dans un tableau placé sur un site Web ! Besoin de récupérez ces données pour exploitation ! Enfantin avec Excel…

 
- 1 – Placez vous à l’endroit ou vous souhaitez démarrer l’importation

- 2 – Passez la commande : Données / Données externes / A partir du site Web

- 3 –Saisir l’adresse du site et accédez par navigation à la page souhaitée

 





- 4 –Chaque tableau est repéré par une flèche. Cliquez sur la flèche pour indiquer le tableau que vous souhaitez importer, (la flèche devient une case à cocher). A l’aide de la touche CTRL vous pouvez éventuellement sélectionner plusieurs tableaux

- 5 – Confirmer la cellule d’importation (ici A2)

Le bouton Options…vous permet de récupérez la mise en forme HTML du tableau

Partager |