Inserer formule si valeur en A non nul
Résolu
Arcs
-
Arcs59 Messages postés 5 Statut Membre -
Arcs59 Messages postés 5 Statut Membre -
Bonjour,
Après quelques recherche je n'ai pas trouver ce que je cherchais. En effet, je débute sur VBA excel, je ne suis donc pas très agile et je pense que ma requête est pourtant simple.
Je voudrais que une macro par exemple, vérifie la colonne R a partir de la ligne 4 pour toutes les valeurs de la colonne A.
Si A et R non vide -> pas d'action
Si A non vide mais R vide -> insertion dans R d'une formule qui prend en compte la valeur en A et en B correspondante.
Et ce jusqu'à la fin des valeur de A.
Exemple :si R35=nul -> R35=CONCATENER(A35;B35)
Merci d'avance.
Après quelques recherche je n'ai pas trouver ce que je cherchais. En effet, je débute sur VBA excel, je ne suis donc pas très agile et je pense que ma requête est pourtant simple.
Je voudrais que une macro par exemple, vérifie la colonne R a partir de la ligne 4 pour toutes les valeurs de la colonne A.
Si A et R non vide -> pas d'action
Si A non vide mais R vide -> insertion dans R d'une formule qui prend en compte la valeur en A et en B correspondante.
Et ce jusqu'à la fin des valeur de A.
Exemple :si R35=nul -> R35=CONCATENER(A35;B35)
Merci d'avance.
4 réponses
-
Bonjour
Un exemple
Const co1 = "A"
Const co2 = "R"
Const co3 = "B"
Const lideb = 4
Const NF = "Feuil1"
Public Sub EcritFormule()
Dim li As Long, lifin As Long, f As String, a, b
With Sheets(NF)
lifin = .Range(co1 & Rows.Count).End(xlUp).Row
For li = lideb To lifin
If .Range(co1 & li) <> "" And .Range(co2 & li) = "" Then
f = "=CONCATENER(" & co1 & li & ";" & co3 & li & ")"
.Range(co2 & li).FormulaLocal = f
End If
Next li
End With
End Sub
Cdlmnt -
Un exemple
https://www.cjoint.com/?3GEoVZm37U6 -
De rien
Si c'est fini, peux tu mettre le sujet à Résolu (en haut à droite de ton premier message)
Cdlmnt ccm81-
Ce sera fait ;) dernière question : j'ai remarqué que les liens hypertexte mènent vers le classeur obligatoirement (clic droit sur la cellule, modifier le lien hypertexte -> il est sélectionné" emplacement dans ce document")
Car quand je met le liens du dossier en local cela ne fonctionne pas, et il suffit que je touche a la cellule pour que cela fonctionne.
Merci encore, je touche au but grâce a vous.
-
-
Essaies ceci
https://www.cjoint.com/?3GEqoKbfS3n
