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 |

Les raccourcis clavier

Beaucoup d’utilisateurs sont aujourd’hui encore très favorable à l’utilisation des touches de raccourcis clavier pour manipuler leur logiciel préféré. Voici donc quelques possibilités offertes par Excel 2007, il est vrai que certains de ces raccourcis sont incontournables pour optimiser son travail.

Les touches de fonctions

	F1	F2	F3	F4	F5	F6
	Afficher l’aide	Activer l’édition de la cellule	Coller un nom	Répéter la dernière action	Atteindre une cellule	Atteindre le volet suivant
Maj +		Insérer un commentaire	Insérer une Fonction	Poursuivre une recherche	Lancer une recherche	Atteindre le volet précédent
Alt +	Insérer un graphique dans la feuille	Enregistrer sous		Quitter Excel
Ctrl +	Afficher ou masquer le ruban	Aperçu avant impression	Gérer les noms	Fermer le classeur	Restaurer la fenêtre	Atteindre la fenêtre suivante
	F7	F8	F9	F10	F11	F12
	Vérifier l’orthographe	Etendre la sélection		Créer un menu	Insérer un graphique dans une nouvelle  feuille	Enregistrer sous
Maj +	Chercher un synonyme	Ajouter à la sélection		Afficher le menu contextuel	Insérer une feuille de calcul	Enregistrer le classeur
Alt +		Gérer les Macros			Ouvrir l’éditeur Visual Basic
Ctrl +			Réduire la fenêtre	Agrandir ou restaurer la fenêtre	Insérer une feuille Macro	Ouvrir un classeur

Les actions clavier

CTRL + A	Sélectionner toute la feuille de calcul	CTRL + O	Ouvrir un classeur
CTRL + B	Recopier vers le bas	CTRL + P	Imprimer
CTRL + C	Copier une sélection	CTRL + Q	Appliquer un format nombre (date heure)
CTRL + D	Recopier vers la droite	CTRL + R	Annuler un format date
CTRL + E	Appliquer un format nombre (puissance de 10)	CTRL + S	Enregistrer un classeur
CTRL + F	Lancer une recherche	CTRL + T	Atteindre une cellule
CTRL + G	Mettre une sélection en gras	CTRL + U	Mettre une sélection en soulignement
CTRL + H	Faire un remplacement	CTRL + V	Coller une sélection
CTRL + I	Mettre une sélection en italique	CTRL + W	Fermer le classeur
CTRL + J	Appliquer un format nombre (date)	CTRL + X	Couper une sélection
CTRL + K	Insérer un lien hypertexte…	CTRL + Y	Répéter la dernière action
CTRL + L	Afficher ou masquer un plan	CTRL + Z	Annuler la dernière action
CTRL + M	Appliquer un format nombre (Euro)	CTRL + ;	Insérer la date courante
CTRL + N	Créer un nouveau classeur	CTRL + :	Insérer l’heure courante

Partager |